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APPLEI PLUS 微机 是 八 位 微型 计算 机 的 代表 机 种 ， 由 于 其 性 能 优良 ， 价 格 低廉 ， 所 
以 受到 广大 用 户 的 普遍 欢迎 。 虽 然 , 近 年 来 出 现 了 性 能 更 为 优良 的 其 他 机 种 ,但 是 ,APPLEI 
微机 目前 仍然 是 广泛 应 用 的 机 种 之 一 。 

随 着 我 国 四 化 建设 的 飞速 发 展 ， 近 年 来 国内 已 引进 了 大 量 的 APPLEI 微机， 该 机 已 在 
工业 、 科 研 、 教 育 等 部 门 发 挥 了 良好 作用 ， 在 企业 管理 、 人 事 和 技术 档案 管理 、 工 资 管理 、 
成 绩 管理 、 情 报 检索 等 方 盏 的 推广 应 用 ， 也 正在 日 益 增 多 。 无 疑 , 随 着 微机 应 用 的 不 断 普 及 ， 
如 何 更 好 地 利用 它 ， 使 之 在 四 化 建设 中 发 挥 更 大 的 作用 ， 已 成 为 广大 用 户 日 益 关 心 的 问题 。 
但 是 ， 由 于 微机 用 户 的 人 员 结 构 正在 逐步 发 生变 化 ， 用 英文 或 汉语 拼音 输入 输出 ， 将 给 大 多 
数 用 户 带 来 困难 ， 因 而 人 们 对 微机 处 理 汉 字 信 息 的 要 求 越 来 越 迫 切 ,为 此 ,不 少 AFELEI 用 
户 已 引进 了 为 该 机 配制 的 汉 卡 。 

在 APPLEE 上 实现 汉字 信息 处 理 的 方法 有 两 种 , 一 种 是 在 APPLEI 上 配备 C-PLUS 入 
-A 汉 卡 或 S.C.C.G-83 超级 汉 卡 ， 以 APPLE SOFT BASIC 语言 处 理 汉 字 信 息 ， 它 构 
成 一 个 较 完 整 的 能 处 理 汉 字 信 息 的 微机 系统 另 一 种 是 建立 汉字 软 字库 实现 汉字 信息 处 理 功 
能 。 

本 书 在 介绍 APPLEI 微 机 基本 用 法 、APPLE SOFT BASIC 语 言 、DOS 操 作 系 统 和 监 
控 系 统 的 同时 ， 着 重 介绍 了 其 汉字 系统 的 组 成 、 汉 卡 的 使 用 方法 、 中 文 编 码 及 输入 方法 、 中 
文 APELE >OFET BASIC 语句 特点 及 中 文 数 据 管 理 程序 设计 ， 并 在 介绍 APPLEEI 绘图 功 
能 的 同时 ， 详 细 分 述 利 用 APPLE I 高 分 辩 率 图 形 显 示 处 理 能 力 设 计 汉 字 图 形 表 的 方法 ， 以 
适应 微机 在 报表 处 理 、 数 据 管理 、 情 报 检索 等 方面 的 推广 应 用 。 

本 书 在 叙述 内 容 方法 的 同时 ， 列 举 了 大 量 的 操作 使 用 和 程序 设计 的 实例 ,可 供 工矿 企业 、 
学 校 、 科 研 、 行 政 部 门 等 应 用 参考 ， 对 大 专 院 校 的 有 关 师 生 也 具有 参考 价值 。 

在 本 书 的 出 版 过 程 中 ， 承 蒙 上 海 计算 机 技术 研究 所 杨 载 明 ， 顾 易 铭 两 同志 细心 审阅 ， 在 
此 表示 感谢 ! 
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第 一 章 “APPLEII PLUS 基本 操作 方法 及 汉字 系统 概述 
第 一 节 “APPLEII 微机 概述 . 


一 、APPLEI 微机 基本 组 成 
APPLEI 微 机 由 主机 ,键盘 (如 图 1-1-1 所 示 )、 显 示 器 、 软 盘 驱动 器 及 打 印 机 等 组 成 。 


1-1-1APPLEI 键 盘 


1。 主 机 
CPU:，65025 
字 长 ， 8 位 (bit)， 
时 钟 频 率 ，1MHZ; 
指令 ，56 条 ,13 种 寻 址 方式 。 
2. 主 存 容 量 
RAM:，48K 字 节 ， 可 扩展 到 64 玉 字 节 8 
ROM，12K 字 节 。 
3。 软盘 
尺寸 5 /4 时 ! 
存储 容量 ， 单 面 单 密 度 约 140 下 字 节 。 
4。 显示 天 
显示 格式 ，24Xx40 或 24X80; 
图 形 显示 能 力 ， 低 分 辨 率 48Xx 40 


高 分 辨 率 192 X 280。 
5。 键 盘 
梁 数 : 52 键 ; 
良 富 ， ASCT 但 。 
e- 打印 机 
三 王妃 MX-80，MX-100 等 。 
7 了 7. 主 讯 上 接口 


硬 和 要 录音 机 接口 


键盘 输入 接口 ; 

视频 输出 接口 

扬声器 输出 接口 

游戏 接口 。 

外 设 扩展 插口 共 八 个 , 编号 0 一 7。 除 0 号 外 ,都 可 接 外 设 卡 ， 基 本 配置 中 打印 机 控制 卡通 
常 插 在 1 号 ， 软 盘 驱 动 器 控制 卡通 常 插 在 6 号 上 ，16K RAM 扩 展 卡 揪 在 0 号 插座 。 

另 有 串 行 RS-232 接口 卡 ， 并 行 IEEE-488 接口 卡 ， 通 讯 卡 ，80 列 显示 卡 ， 语 言 卡 ,， 整 
数 BASIC 卡 ,Z-80 卡 ,ROM 编程 卡 ,A/D 、D/A 转换 卡 ，C-PLUSIT-A 汉 卡 ，S.C.C.G- 
80 超级 汉 卡 等 外 设 控制 卡 可 供 选 用 。 

配 有 .DO93 .3 操作 系统 ， 高 级 语言 有 BASIC，FORTRAN，COBOL，PASCAL。 加 
2Z-80 卡 ， 可 使 用 CP/M 操作 系统 及 其 支持 下 的 各 种 语言 。 

配置 汉 卡 ， 可 直接 处 理 中文 信 息 。 


二 、APPLE 工 微机 的 起 动 


使 用 APPLEI 之 前 ， 应 按 系 统 配置 ， 将 外 部 设备 按 规定 和 主机 连接 。 在 检查 连接 正确 
之 后 ， 按 下 监视 器 的 按钮 开关 ， 将 亮度 控制 旋钮 调 到 适当 位 置 ， 屏 幕 上 将 出 现 光栅 ， 按 主机 
背后 的 电源 开关 ， 可 听 到 响 铃 声 ， 屏 幕 显 示 如 图 1-1-2 所 示 。 


] 畏 
国 1-1-2 
当 系 统 主 盘 (DOS.3.3) 放 进 1 号 驱动 器 ， 打 开 电 源 ， 启 动 成 功 则 出 现 如 下 字幕 
DOS VERSION 3 .3 08/25/80 


APPLET PLUS OR ROMCARD SYSTEM MASTER 
(LOADING INTEGER INTO LANGUAGE CAR D) 
] 国 
] 是 提示 符 ， 表 示 APPLE 工 当前 所 处 的 语言 (或 工作 ) 方 式 ， 闪 动 的 光标 表示 键盘 的 输 
入 位 置 。 
系统 提示 符 的 显示 格式 有 三 种 ， 如 表 1-1-1。 
# :表示 APFELEI 进 入 监控 工作 方式 ， 可 接受 监控 命令 和 输入 机 器 语言 程序 ; 
> :表示 AEELE IT 进入 整数 BASIC 的 工作 方式 ， 可 以 接受 整数 BASIC 的 操作 命令 并 
可 输入 程序 ; 
]， 表 示 APPLEE 进入 APPLE SOFT BASIC 工作 方式 ， 可 以 接受 APPLE SOFT 
BASIC 的 操作 命令 并 可 输入 程序 。 


人 1 
+ 


提示 符 格 式 语 言 
。 机 器 语 言 
之 整数 BA9SIC 
] APPLE SOFT BASIC 


事 1-1-1 
APPLE T 监控 程序 使 主机 自动 进入 APPLE SOFT BASIC 的 状态 ， 支 持 APPLE 
SOFT BASIC 的 操作 系统 是 DOS3.3, 它 存放 在 系统 主 盘 上 ， 当 把 系统 主 盘 置 于 1 号 软盘 驱 
动 器 ， 开 机 后 ， 驱 动 器 上 的 红 灯 亮 ， 驱 动 器 工作 。 把 DOS 3.3 装 入 到 内 存 后 进入 APPLE 
SOFT BASIC 状态 。 


三 、 屏 幕 显示 


APPLE T 有 三 种 屏幕 显示 格式 ， 文 本 显示 格式 ， 低 分 辨 率 显示 格式 和 高 分 辩 率 显示 格 
式 。 对 应 每 -~ 种 显示 格式 ，APPLEI 内 存 RAM 中 各 有 两 个 显示 缓冲 区 ， 分 别称 为 第 一 页 
和 第 二 页 。 
1。 文 本 显示 格式 
文本 显示 格式 可 在 屏幕 上 显示 960 个 字符 ， 即 整个 屏幕 可 以 显示 24 行 ， 每 行 40 个 字符 
如 图 1-1-3。 显 示 点 阵 为 5x 7， 例 如 ， 字 符 卫 的 点 阵 如 图 1-1-4 所 示 。 字 符 间 距 为 横向 2 点 ， 
垂直 1 点。 


图 1-1-3 图 1-1-4 


正常 字符 以 黑 底 白字 显示 ， 但 也 可 以 用 自 底 黑 字 的 反 相 形式 显示 ， 或 以 闪烁 方式 显示 。 
2. 低 分 辩 率 图 形 显示 格式 
在 企 分 辩 率 图 形 显 示 格 式 中 ,APPLE IT 把 屏幕 分 成 1920 个 小 方块 ， 即 48 行 , 每 行 40 个 
:二 半 。 如 图 1-1-5 所 示 ， 每 个 小 方块 的 颜色 有 16 种 可 供 选择 ， 详 见 第 七 章 。 
:。 高 分 辩 率 图 形 显示 格式 - 
去 误 分 畦 率 图 形 显 示 格 式 中 ,APPLEI 把 屏幕 分 成 53760 个 小 点 , 即 有 192 行 ,每 行 280 
三 .立柱 1-1-6 所 示 ， 每 点 有 六 种 颜色 可 供 选 择 。 详 见 第 七 章 。 
亚 各 C-PLUSI-A 汉 卡 时 ,汉字 屏幕 使 用 高 分 辩 率 的 第 二 克 显 示 区 , 当 配 备 3S.C.C.G- 
到 运 寺 汉 下 二， 可 法 用 高 分 辩 率 第 一 页 或 第 二 页 显示 区 显示 汉字 。 汉 字 的 点 阵 为 16 x 16， 实 际 
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图 1-1-5 图 1-1-6 
使 用 15 x 16 ,例如 “ 同 ” 字 的 点 阵 如 图 1-1-7 所 示 。 


图 1-1-7 


四 、 键 表 操 作 


APPLETI 的 键盘 ， 除 某 些 键 以 外 ， 和 英文 打字 机 的 布局 相同 ， 共 有 52 个 键 。 
使 用 的 代码 是 ASC 工 码 。 
除了 8 个 特殊 功能 键 之 外 ， 其 它 按 键 的 字符 可 直接 显示 在 屏幕 上 。 
8 个 特殊 键 及 功能 如 下 ; 
上 下 档 转 换 键 ，SHIFT 2 个 
特殊 键 ，CTRL,ESC,RESET,REPT, <,-~>，RETURN。 
1。RESET 键 
按 RESET 键 ， 中 断 当 前 工作 ， 进 入 复位 周期 ， 为 防止 误 操 作 ，RESET 键 需 和 CTRL 
键 同时 按 (用 CTRL-RESET 表示 ) 才 有 效 。 
,2。、SHIFT 键 
SHIFT 键 用 来 输入 键 帽 上 部 的 所 示 符 号 ， 例 如 当 只 按 1 键 ， 表 示 输 入 数字 1， 如 同时 按 
SHIFT 和 1 键 ， 则 表示 输入 符号 “! ”， 以 此 类 推 。 但 G 键 上 部 所 示 的 “BELL” 例外 ， 即 按 
5HIETI-G 时 AEFELE I 不 发 出 声音 ， 而 是 按 CTRL-G 才 发 出 声音 。 
3。REPT 键 
REPT 键 和 其 它 字符 键 配 合 操作 ， 可 以 连续 产生 出 字符 ， 例 如 按 下 A 键 ， 再 按 REETI 
键 ，A 字符 连续 出 现在 屏幕 上 ， 直 到 放 开 REPT 键 为 止 。 


。， 4 。 


4。ESC 键 
ESC 键 必 须 和 其 它 键 配合 使 用 ， 在 APPLE 工 监控 中 , 它 定义 了 如 下 的 屏 葛 编辑 功能 ， 
ESC-A，ESC-B，ESC-C，ESC-D 均 使 光标 移动 一 个 字符 位 置 ， 移 动 的 方向 如 图 
1-1-8 所 示 。 同 样 ， 按 ESC 键 进入 编辑 状态 后 ， 再 按 IJ、K、M 也 可 使 光标 移动 一 个 字符 
位 置 ， 移 动 方向 如 图 1-1-9 所 示 。 除 I[.J.K.M、REPT.CTRL 及 SHIFT 外 ， 按 其 它 住 一 个 
键 均 退出 编辑 状态 。 
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ESC 的 上 述 编辑 功能 只 能 用 于 移动 光标 ， 当 和 REPT 键 配合 使 用 时 使 光标 连续 移动， 
存 贮 器 的 内 容 不 发 生变 化 。 
ESC-E:， 删除 从 光标 位 置 到 该 行 结 束 的 所 有 内 容 ， 
ESC-F， 删 除 从 光标 位 团 以 下 的 所 有 屏幕 内 容 ， 
ESC-@: 删除 整个 屏幕 内 容 。 
“5。RETURN 键 
带 有 行 号 的 程序 语句 以 RETURN 键 作为 输入 结束 。 
从 键盘 输入 命令 ， 按 RETURN 键 就 执行 这 个 命令 。 
6 。 一 键 
它 使 光标 右 移 一 个 字符 位 置 ， 并 把 经 过 的 所 有 字符 存 入 存 贮 器 。 
7。< 二 - 键 
它 使 光标 左 移 一 个 字符 位 置 ， 每 次 移动 时 ， 把 经 过 的 字符 从 程序 中 清除 。 
8。CTRL 键 
CTRL 键 和 其 它 键 配 合 使 用 时 输入 特殊 的 代码 ， 例 如 按 CTRL-G, 输 入 的 ASC 工 码 为 
507，CTRL 键 和 其 它 键 配合 详 见 本 章 下 一 节 叙 述 。 


二 节 APPLEE 微机 的 基本 操作 方法 


人 AFELE E 提供 子 一 种 功能 较 强 的 扩展 BASIC 语言 一 -APPLE SOFT BASIC 语言 。 
立 节 才 述 APPLE SOFT BASIC 程序 结构 及 基本 操作 方法 。 


一 、APPLE SOFT BASIC 程序 结构 


下 可 是 一 个 计算 某 班级 某 门 课程 总 分 及 平均 成 绩 的 APPLE SOFT BASIC 程序 ， 假设 
3 却 育 10 人，84 分 有 5 人 ，70 分 有 15 人, 65 分 有 8 人 。 


10LET A=10: LETB=5 
:20LETC=15: LETD=8 
30 S1=95:S2=84:S3=70:S4=65 
40U=A+B+C+D 
50S=SleA 上 +S2*B+S3eC +948D 
60G=S/U 
70 PRINT 9 
80 PRINT G 
90 END 
由 此 程序 可 知 ，APPLE SOFT BASIC 程序 是 由 若干 行 组 成 。 并 规定 ， 每 一 程序 行 中 
可 以 包含 一 个 或 多 个 语句 。 若 包含 多 个 语句 ， 每 两 个 语句 间 要 用 冒号 ^ : ”分开 ， 但 一 行 最 多 
只 能 包含 255 个 字符 。 程 序 由 若干 语句 集合 而 成 。 
一 个 语句 的 结构 如 下 : 
语句 标号 ”语句 定义 符 ”语句 体 RETURN 
语句 标号 是 1 一 63999 之 间 的 一 个 无 符号 整数 , 它 识别 一 行 (或 一 名 语句)， 并 规定 计算 机 
执行 该 行 的 次 序 。 一 般 机 器 是 按 标号 大 小 ， 由 小 到 大 顺序 执行 。 标 号 可 以 不 按 大 小 顺序 写 ， 
BASIC 解释 程序 会 作 整 理 并 按 大 小 顺序 排列 ， 标 号 可 以 不 连续 ， 以 便 在 修改 程序 时 播 入 新 
的 语句 。 
语句 定义 符 指明 语句 的 类 型 及 性 质 ， 规 定 计 算 机 执行 某 一 特定 功能 ， 如 语句 10 的 LET 
表示 赋值 ， 语 句 70 和 80 的 PRINT 表示 打印 。 
语句 体 给 出 需要 执行 的 具体 内 容 ， 如 语句 70 是 打印 总 分 S。 通 常 由 常数 变量、 运算 符 
等 连结 而 成 的 表达 式 组 成 。 
每 一 程序 行 以 RETURN 结束 。 每 个 程序 一 般 以 END 结束 。 


二 、 主 要 操作 命令 
操作 命令 必须 以 大 写 英文 字母 从 键盘 上 输入 。 
1.NEW 命令 
表示 清除 内 存 
格式 NEW RETURN 
它 清除 内 存 中 所 有 程序 及 变量 ,通常 在 输入 一 个 新 程序 前 使 用 这 个 命令 。 当 主机 启动 后 ， 
内 存 中 存 有 HELLO 程序 ， 须 以 NEW 清除 后 再 输入 程序 。 
2。LIST 命令 
在 屏幕 上 显示 程序 清单 
格式 ，(1) LIST RETURN 
显示 整 不 程序 清单 。 当 一 个 屏幕 页 不 足以 显示 整个 程序 时 ， 程 序 向 上 滚动 ， 直 到 程序 结 
束 处 。 
(2) LIST N RETURN 
显示 标号 为 N 的 语句 。 例 如 ，LIST 60， 显 示 60 G= S/U 
(3》 LIST N1，N2 RETURN 
显示 从 标号 N1 到 标号 N2 为 止 的 程序 清单 。 例 如 ， LIST 20，50， 显 示 语 名 20，30， 
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40，50。 
(4) LIST，N2 RETURN 
显示 标号 N2 之 前 的 程序 清单 。 例 如，LIST，40。 显 示 语句 10，20，30，40 


。DEL 命令 


删除 程序 中 的 某 些 语句 
格式 ，(1) DEL N1，N1 RETURN 
删除 标号 为 N1 的 语句 。 例 如 ，DEL 70，70, 删除 语句 70， 再 用 .LIST 命令 ， 语 名 70 不 
再 出 现 。 这 个 程序 不 再 输出 总 分 。 也 可 以 使 用 N1 RETURN 删除 N1 语句 
(2) DEL N1，N2 RETURN 
删除 程序 中 标号 为 N1 到 标号 为 N2 之 间 的 所 有 语句 。 


.RUN 命令 


执行 一 个 程序 - 
格式 ，(1) RUN RETURN 
当 从 键盘 上 输入 程序 ， 计 算 机 并 不 执行 该 程序 ， 必 须发 RUN 命令 ， 计 算 机 才 开 始 执行 
该 程序 ， 执 行 到 END 语句 止 。 
(2) RUN NI RETURN 从 程序 中 行 号 为 N1 的 语句 开始 执行 。 


。CLEAR 命令 


清除 程序 中 所 有 变量 。 数 值 变量 及 数组 清除 为 0， 字 符 串 变量 及 数组 清除 为 “ 空 字 串 ”。 
格式 ，CLEAR RETURN 


， CONT 命令 


继续 执行 程序 

格式 ，CONT RETURN 

对 执行 STOP .END 语句 后 暂停 的 程序 或 被 以 CTRL-C 键盘 操作 强迫 停止 运行 的 程序 
重新 启动 ， 从 断 点 处 继续 运行 。 程 序 以 STOP，END 语句 暂停 后 ， 计 算 机 保留 各 变量 
的 当前 值 ， 用 户 可 以 执行 一 些 适 当 的 命令 ， 检 查 和 修改 有 关 变 量 的 当前 值 ， 也 可 以 检查 
程序 ， 但 不 可 以 改动 程序 。 一 旦 改动 ， 再 用 CONT 语句 继续 时 ， 系 统 报错 “CANT 
CONTINUE ERROR”。 


7。TRACE 命令 


不 踪 程 序 的 执行 过 程 

语 式 ，TRACE RETURN 

孜 行 这 个 命令 ， 可 以 跟踪 整个 程序 执行 的 全 过 程 。 屏 幕 上 连续 显示 被 执行 的 程序 行 号 。 
当 妹 踪 到 INPUT 语句 ， 屏 幕 上 出 现 问号 “? “， 用 户 回答 后 ， 继 续 跟 踪 。 便 于 用 户 对 程 
译作 错 。 使 用 这 个 命令 后 ， 程 序 输出 信息 和 了 眼 踪 行 号 混在 一 起 。 通 常 只 在 调试 程序 时 使 
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. XD TRACE 命令 


生 去 丽人 荐 功能 
匹 祥 : XO TRACE RETURN 
酸 喜 三 TRACE 命令 建立 的 跟踪 功能 。 


:. -ME 命令 


误 舍 晤 全 异 幕 显 示 ， 但 不 清除 内 存 RAM 中 的 程序 。 


三 、 监 控 中 可 执行 的 控制 字符 


1，CTRL-B 使 机 器 由 监控 工作 方式 (*) 进 入 APPLE SOFET BASIC 工作 方式 ( ])， 它 
破坏 现行 程序 。 

2。CTRL-C 当 机 器 处 于 监控 工作 方式 时 ，CTRL--C 使 机 器 进入 APPLE SOFT 工 作 方 
式 ， 且 不 破坏 现行 程序 。 

当 程序 运行 时 ，CTRL-C 中 止 程序 的 执行 ， 屏 幕 上 显示 信息 “BREAK IN 人 六”， 指 示 程 

序 中 止 在 标号 为 N 的 语句 。 输 入 CONT 命令 ， 程 序 继续 执行 。 
.CTRL-G 使 机 器 发 出 响 铃声 。 
。CTRL-J 使 光标 向 下 移动 一 行 。 
。CTRL- 世 抹 去 前 一 个 字母 。 
CTRL-M 换行 。 
。CLCTRL-U 复制 原 屏 幕 上 的 字符 ， 相 当 于 一 键 。 
。 CTRL-X 抹 去 当前 一 行 中 的 程序 语句 ， 并 在 此 语句 末尾 显示 饼 ?符号 。 

例如 ， 输 入 10 PRINT "APPLE SOFT BASIC7 后 按 CTRL-X, 删 除 这 个 语句 ,屏幕 显示 
10 PRINT /APPLE SOFT BASICAA\ 

9. CTRL-S 用 LIST 命令 显示 程序 清单 时 ， 程 序 语句 一 行 行 向 上 移动 ， 按 一 下 CTIRL- 
5， 停 止 程序 移动 ， 以 便 阅 读 程序 ， 再 按 一 下 CTRL-S， 程 序 继续 移动 。 


oo 人 有 了 中 心 
@@ 


四 、 屏 幕 编辑 功能 


屏幕 编辑 功能 实现 字符 的 修改 ， 揪 入 和 删除 。 

编辑 使 用 的 键 ， 

ESC-A,ESC-B,ESC-C,ESC-D 键 

匡 SC 及 IJ、M 键 ; 

一 >?》 < 一 键 ; 

REPT 键 。 

编辑 时 ， 须 使 用 下 SC 功能 , 把 光标 移 到 所 需 行 的 首 字符 位 置 ， 再 修改 、 揪 入 .删除 操作 。 

1. 修改 

例 1 ”把 下 面 程 序 中 *PRIMT?” 的 “<M” 修 改 成 <N9” 

]10 PRIMT APPLE SOFT BASIC/ 

]20 国 

先 按 ESC 键 ， 然 后 按 一 次 I 键 ， 使 光标 移 到 上 一 行 的 *PRIMT” 的 “P” 字 符 ， 连 续 按 三 
次 本 键 ， 使 光标 移 到 该 行 的 行 首 的 字符 ^1?，. 然 后 用 一 键 使 光标 右 移 到 “PRIMT” 的 “M” 处 ， 
键入 “N? 把 “M? 修 改 后 ， 再 用 -> 键 把 光标 移 到 行 末 ， 按 下 RETURN 键 ， 完 成 修改 操作 。 

2. 插入 

例 2 在 下 面 的 程序 行 中 的 “PRINT” 后 面 播 入 TAB(10) 

10 PRINT ZAPPLE SOEFET BASIC7 

20 转 

按 例 1 所 述 的 方法 把 光标 移 到 上 一 行 第 一 个 双 扩 号 的 位 置 ， 再 重新 按 ESC 及 I 键 使 光 
标 务 到 上 一 空 行 , 按 除 T， 机 、 工 、M、REPT、CTRL、SHIFT 外 的 任 -- 键 ,退出 编辑 状态 , 再 
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键入 要 打 入 的 字符 TAB(10)。 重 按 ESC 键 再 按 M 键 ,使 光标 返回 语句 10 所 在 行 。 并 用 了 
键 把 光标 移 回 第 一 个 双 撤 号 处 , 接着 用 -> 键 使 光标 移 到 行 末 , 按 RETURN 键 完成 插入 操作 。 
3. 删除 

例 3 ”删除 下 列 “SSOFT* 中 的 第 一 个 “S?。 

10 PRINT 7APPLE S9OFET BAGSICY 

20 本 

按 例 1 所 述 方法 把 光标 移 到 上 一 行 的 第 一 个 S 位 置 , 按 ESC 键 再 按 一 次 民 键 ， 然 后 用 
-> 键 把 光标 移 到 行 末 ， 按 RETURN 键 ， 完 成 删除 操作 。 


五 、 软 盘 机 及 打印 机 的 使 用 方法 


软盘 机 及 打印 机 是 微机 的 主要 外 部 设备 。 

1。 软盘 机 的 使 用 方法 。 

从 键盘 上 输入 一 个 程序 之 后 ， 如 果 要 把 一 个 程序 保存 到 软盘 上 ， 以 便 今后 随时 调用 ， 可 
使 用 如 下 二 条 DOS 命令 ， 

(1) SAVE 文件 名 。， 

这 条 命令 把 存 贮 器 里 的 程序 存 到 软盘 上 。 文 件 名 由 用 户 自己 给 出 。 

(2) LOAD 文件 名 

这 条 命令 根据 指定 的 文件 名 把 软盘 上 该 程序 取 到 主机 的 存 贮 器 。 如 果 要 执行 这 个 程序 ， 
必须 再 输入 RUN 命令 。 

软盘 在 使 用 之 前 须 经 初始 化 。 当 DOS3.3 系统 盘 放 进 1 号 软盘 驱动 器 ， 启 动 主机 后 , 换 
上 要 初始 化 的 软盘 ， 并 输入 INIT HELLO 命令 ， 对 软盘 进行 初始 化 。 

其 它 命令 详 见 第 四 章 叙 述 。 

2. 打印 机 的 使 用 方法 

当 打印 机 的 电源 接 通 后 ,POWER 及 READY 指 示 灯 亮 ,可 以 输入 命令 PR#1 RETURN 
启动 打印 机 。 

打印 一 个 程序 的 清单 ， 输 入 命令 : 

PR 共 1 人 RETURN 

LIS9T RETURN 

打印 一 个 程序 的 执行 结果 ， 输 入 命令 : 

PR#1RETURN 


RUN RETURN 

打印 高 分 辨 率 第 一 页 或 第 二 页 的 图 形 ， 分 别 输入 命令 ， 

PR#1 RETURN PR#1 RETURN 

POKE 1913,1 RETURN POKE 1913，2 RETURN 
CTRL-Q CTRL-Q 


了 有 民 ##0 REIURN 
三 他 ”汉字 系统 概述 
汉字 数目 繁多 ， 形 状 复 杂 ， 汉 字 如 何 输 入 是 计算 机 处 理 汉字 信 息 时 必须 要 解决 的 第 一 个 
e。 9 。 


难题 ， 它 涉及 汉字 编码 及 汉字 的 输入 方法 。 汉 字 的 编码 方法 有 音 码 、 形 码 、 音 形 码 等 。 汉 学 
的 输入 方法 一 般 可 分 为 整 字 键 盘 输 入 和 编码 输入 , 整 字 键 盘 输 入 通常 使 用 的 是 笔触 式 大 键盘 ， 
使 用 的 方法 简单 易学 ， 但 输入 速度 较 慢 ， 硬 件 费 用 较 高 ; 编码 输入 一 般 使 用 标准 的 ASC 
键盘 ， 这 样 就 能 够 和 英文 系统 的 键盘 兼容 。 配 备 汉 卡 的 APPLE IT PLUS 微机 采用 中 文字 母 
法 的 编码 方法 ， 它 是 一 种 形 码 > 这 种 编码 方法 选用 24 个 基本 中 文字 母 ， 并 选取 60 个 字形 作为 
这 些 字母 的 辅助 字形 ， 每 个 汉字 可 以 由 1 一 5 个 中 文字 母 ( 最 多 5 个 中 文字 母 ) 组 成 ， 组 字 的 
规则 大 部 分 均 与 写字 的 笔划 顺序 类 同 ， 有 效 组 字数 为 23000 个 字 ， 中 文字 母 输入 是 在 ASC 
键盘 上 实现 的 ， 用 A 一 W、Y 共 24 个 英文 字母 和 24 个 基本 中 文字 母 相对 应 ， 这 样 ， 只 要 在 
原来 英文 系统 下 使 用 的 24 个 英文 字母 键 上 加 贴 所 代表 的 中 文字 母 就 可 以 很 方便 地 兼容 ,每 个 
汉字 击 键 仅 1 一 5 次 ， 操 作 速度 与 英文 打字 机 不 相 上 下 。 

汉字 显示 及 汉字 打印 是 汉字 处 理 系统 中 的 第 二 难题 ,有 了 汉字 显示 和 汉字 打印 ,设计 者 可 
以 预先 在 汉字 数据 处 理 系统 程序 中 设计 汉字 提示 句子 ， 以 便 在 程序 运行 时 用 中 文 提示 用 户 进 
行 操作 。 在 输出 结果 时 ， 直 接 用 汉字 显示 或 打印 ， 便 于 阅读 。APPLE I PLUS 微机 系统 能 
在 数据 显示 终端 上 以 16 x 16 的 点 阵 显 示 汉 字 ， 汉 字 的 字幕 为 17 字 x 10 行 ， 在 汉字 输入 时 ， 
屏幕 的 左下 角 会 显示 “中 文 两 个 小 字 指示 机 器 处 于 汉字 输入 状态 ， 在 “中 文 ? 两 字 后 面 显示 每 
次 组 字 取 码 时 相应 的 中 文字 母 ， 使 汉字 输入 过 程 清晰 , 明 腑 , 输入 不 易 出 错 。APPLE 工 PLUS 
通常 配备 的 MX-80，MX-100 针 式 打印 机 以 16 x 16 的 点 阵 打印 输出 的 汉字 ， 既 可 以 直 印 ， 
又 可 以 横 印 ， 可 以 输出 大 字 字 型 ， 也 可 以 输出 小 字 字 型 ， 行 与 行 、 列 与 列 的 间距 均 可 控制 先 
择 ， 如 果 配 备 MX-80 打印 机 ， 每 行 最 多 可 以 打印 60 个 汉字 ， 如 果 配 备 MX-100， 每 行 最 
多 可 以 打印 120 个 汉字 ， 可 以 满足 大 多 数 报表 打印 输出 的 要 求 。 

汉字 处 理 所 遇 到 的 第 三 个 难 古 是 建立 汉字 库 , 汉 字 的 库容 量 依赖 于 汉字 点 阵 格 式 。 目 前 ， 
一 般 用 作 显 示 的 汉字 点 阵 格式 是 16 x 16， 用 作 打 印 的 点 阵 格式 为 24x 24。 对 于 2 万 多 个 汉 
守 ， 汉 字库 的 容量 是 很 可 观 的 。 微 机 系统 的 汉字 库 可 以 用 硬件 建立 ， 其 处 理 速度 快 ， 但 代价 
格外 高 ， 也 可 以 建 在 软盘 上 以 降低 成 本 ， 但 处 理 速度 慢 。 采 用 三 级 存放 可 以 提高 速度 ， 即 一 
级 字库 是 常用 字 常 驻 内 存 ， 二 级 字 是 缓冲 活动 库 ， 仅 占用 少量 存储 单元 ， 其 它 的 汉字 作为 三 
级 字库 存放 在 软盘 上 。APPLEI 配备 的 C-PLUS 汉 卡 或 超级 汉 卡 是 用 硬件 来 构造 汉字 
库 ， 显 示 和 打印 的 点 阵 褒 式 都 是 16 x 16。 

汉字 处 理 的 另 一 个 问题 是 如 何 对 存储 的 汉字 信息 进行 加 工 处 理 ， 其 核心 是 如 何 使 中 文 信 
息 处 理 和 英文 信息 处 理 兼 容 。 通 常 希望 在 保留 原来 的 英文 处 理 功能 基础 上 ， 使 适用 于 英文 字 
符 处 理 的 一 切 功 能 对 汉字 同样 适用 ， 并 使 软件 兼容 。APPLEI PLUS 微机 用 APPLET 
SOFT BASIC 语言 调用 和 处 理 汉 字 ， 如 果 使 用 C-PLUS TI-A 汉 卡 ,除了 17 条 指令 外 ， 英 文 
系统 下 的 APPLE TI SOFT BASIC 中 的 所 有 BASIC 指令 均 保 持原 有 性 能 ， 如 果 使 用 超级 
汉 卡 ， 则 只 有 ?7 条 指令 不 能 使 用 ， 在 汉字 处 理 系 统 中 可 以 使 用 DOS 3.3 操作 系统 的 所 有 命 


令 。 


第 四 节 ”汉字 处 理 系统 的 硬件 配置 及 系统 的 支持 软件 


一 、 系 统 的 硬件 配置 
APPLET PLUS 主机 一 台 ; 
.10 .- 


监视 器 一 台 ! 

ASCI 键 盘 ”为 操作 方便 , 可 以 在 键盘 上 24 个 英文 字母 键 的 侧面 加 贴 相应 的 中 文字 母 
16K RAM 卡 一 块 ” 揪 在 0 号 扩充 揪 座 上 

软盘 驱动 器 控制 卡 一 块 ” 它 可 以 带 两 个 软盘 驱动 器 同时 工作 ， 反 在 6 号 扩充 插座 上 # 
软盘 驱动 器 两 台 ”汉字 处 理 系 统 的 程序 及 数据 可 以 存放 在 软盘 上 ! 

打印 机 控制 卡 一 块 ” 揪 在 1 号 扩充 反 座 上 

打印 机 一 台 ”EPSON 公司 出 品 的 MX-80 TYPE IEI 或 TYPE 亚 以 及 MX-82, MX-100 
等 均 可 使 用 , 在 打印 中 文 时 ,要 把 打印 机 后 面 的 4 位 拨 动 开关 中 的 第 3 位 (AUTO FEED) 
开关 设置 在 ON 位 置 

C-PLUS-A 汉 卡 或 S.C.C.G-83 超级 汉 卡 一 块 ” 揪 在 1 一 7 号 扩充 插座 的 任何 一 个 所 
座 上 ， 通 常 捅 在 3 号 扩充 捅 座 上 。 


二 、 系 统 的 支持 软件 
自动 局 动 监控 程序 ! 
APPLE SOFT BASIC 解释 程序 ; 
磁盘 操作 系统 DOS3.3 版 本 ( 当 使 用 C-PLUS I-A 汉 卡 时 )\.CCDOS 操 作 系统 ( 当 使 用 
S.C.C.G-83 超级 汉 卡 时 )。 


三 、C-PLUSIT-A 汉 卡 的 规格 及 使 用 注意 事项 


， 汉 卡 规格 

使 用 范围 ， 适 用 于 APPLE 工 个 人 电脑 

体积 ，285mm x 80mm x 15mmy 

使 用 温度 ，5 一 35"C 

消耗 功率 6Wi 

中 文字 幕 ，17 字 x 10 行 

英文 字幕 ，34 字 x 10 行 ; 

中 文字 和 矩阵 ，16 x 163 

英文 字 和 矩阵 ，8 x 16; 

中 文 输入 方法 ， 中 文字 母 法 。 

.电源 的 规格 

+5V:2.5A; 

一 5V:;0.5A; 

+12V:1.5A; 

_12V;0.5A。 

电源 的 稳定 性 在 3% 以 内 。 

。 汉 卡 使 用 注意 事项 

汉 卡 带 有 密封 的 金属 外 壳 ， 用 户 不 可 随意 把 外 壳 拆 开 以 免 损 坏 组 件 。 
安装 或 取 下 汉 卡 时 ， 必 须 先 把 电源 关闭 ,并 取 下 主机 上 方 的 外 壳 , 小 心地 把 汉 卡 垂直 地 捅 
兰 竺 :一 7 号 扩充 宪 席 的 任 一 个 上 ， 并 仔细 地 检查 安插 的 位 置 是 否 有 偏 移 、 不 正 的 情况 。 打 
去 所 源 后 主机 起 动情 况 应 和 未 装 汉 卡 时 相同 , 如 果 不 同 ， 应 立即 关闭 电源 ， 重 新 安装 。 
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第 五 节 汉字 编码 


本 节 简 要 介绍 中 文字 母 编码 法 中 使 用 的 24 个 基本 中 文字 母 ，60 个 辅助 字形 以 及 组 字 的 规 
则 。 > 
一 、 中 文字 母 

1。 中 文字 母 的 定义 

中 文字 母 编码 使 用 24 个 中 文字 母 ， 每 个 中 文字 母 不 仅 代表 一 个 组 字 频 率 高 的 中 文字 形 ， 
而 且 痢 具 有 完整 的 意义 ， 其 中 日 、 月 、 金 、 木 、 水 、 火 、 土 、 人 、 心 、 手 、 口 等 字形 本 身 具 
有 完整 的 意义 ， 直 接 取 作为 中 文字 母 。 斜 (/)， 点 (.)， 交 (+ )， 又 (x )， 纵 ( 」 )， 横 (一 )， 
钩 ( 」) 等 基本 笔划 和 侧 ( ])， 并 (#+)， 仰 ()， 组 ( 女 )， 方 ( 口 )， 下 ( 卜 ) 等 基本 字形 没有 完 
整 的 意义 ， 分 别 用 和 字形 相关 的 具有 完整 意义 的 中 文字 作为 中 文字 母 ， 它 们 是 人 竹 、 苹 、 十 、 
大 、 中 、 一 、 弓 及 尸 、 匡 、 山 、 女 、 田 、 卜 。 

2。 形 码 

为 了 能 在 英文 键盘 上 输入 汉字 ， 把 24 个 基本 中 文字 母 和 A 一 由 、Y 24 个 英文 字母 相对 
应 (英文 另外 规定 为 特殊 键 )， 并 把 与 中 文字 母 等 价 的 英文 字母 称 为 形 码 。 中 文字 母 与 英文 
形 码 的 对 应 关系 如 下 ; 


中 文字 母 英文 形 码 
日 月 金 木 水 火 土 ABCDEFG 
竹 蕊 十 大 中 一 弓 HIJKLMN 
人 心 手 口 OFEQR 

尸 廿 山 女 田 下 5TUVYWY 
特 丈 键 ， 义 


3. 中 文字 母 组 字 实 例 

24 个 中 文字 母 可 以 单独 成 字 , 也 可 以 组 合 起 来 组 字 。 中 文字 母 编码 法 规定 :一 个 汉字 最 
多 由 5 个 中 文字 母 编 码 组 合 而 成 。 
例 字 ”中 文字 母 编码 英文 形 码 


日 忆 A 

伐 人 蕊 OIl 

桂 木 土 土 DGG 

了 哈 口 人 一 品 ROMR 
戎 一 土 十 口 月 MGJRB 


中 文字 母 不 可 以 再 分 割 ， 如 “ 王 ? 字 ， 中 文字 母 编码 应 取 “ 一 土 ?， 而 不 取 “ 一 十 一 ”。 


二 、 辅 助 字形 
1 辅助 字形 规定 加 
仅 由 24 个 中 文字 母 不 可 能 把 所 有 的 汉字 都 表示 出 来 。 如 “四 ?这 个 字 ， 尽 管 很 简单 ， 但 没 
有 中 文字 母 和 它 相 对 应 ， 也 不 可 能 由 24 个 基本 中 文字 母 组 合 而 成 ， 为 此 规定 了 由 中 文字 母 演 
，12 。 


2 辅助 字形 组 字 实 例 


变 出 来 的 60 个 辅助 字形 ， 包 括 基 本 中 文字 母 和 辅助 字形 在 内 的 中 文字 母 玫 见 附录 


辅助 字形 所 代表 的 仅 是 符号 而 不 是 文字 ， 不 能 象 中 文 宰 母 那样 单独 成 字 ， 它 们 可 以 和 中 


文字 母 一 起 组 字 ， 也 可 以 由 2 一 5 个 辅助 字形 独立 成 字 。 


中 文字 母 和 辅助 字形 一 起 组 字 实 例如 下 ， 


例 字 ”中 文字 母 编码 英文 形 码 
欠 弓 人 NO 
同 月 一 口 BMR 
本 木 竹 一 中 DHML 
琼 一 土 下 口 火 ， MGYRRF 
辅助 字形 独立 组 字 实 例如 下 ; 
例 字 ”中 文字 母 编 码 英文 形 码 
四 田 金 WC 
宏 十 大 戈 JKI 
色 人 竹 日 日 山 HAAU 
彤 月 下 人 竹 竹 竹 BYHHH 
辅助 字形 不 可 单独 组 字 ， 如 单独 成 字 ， 必 须 再 分 解 ， 如 * 工 ? 字 编 码 取 为 “一 中 一 ”而 不 
取 “ 一 ”。 
三 、 取 码 规则 
1。 顺 序 法 


对 字形 比较 简单 的 汉字 ， 按 照 字 形 排列 的 顺序 由 外 而 内 ， 由 上 而 下 ， 由 左 人 而 右 组 字 。 可 


左右 、 上 下 分 离 的 ， 先 左右 后 上 下 。 


由 外 而 内 的 是 先 取 外 形 ， 再 取 内 形 。 


例 字 
塘 
固 


外 形 取 码 
月 
田 


内 形 取 码 
十 口 


贞 上 而 下 是 先 取 上 形 ， 再 取 下 形 。 
例 字 ”上 形 取 码 下 形 取 码 


内 人 月 
让 中 月 
全 人 一 土 
由 左 而 右 是 先 取 左 形 ， 再 取 右 形 。 
例 字 ” 左 形 编码 ” 右 形 编码 
仙 人 山 
封 土 土 
昭 日 己 人 竹 口 
徐 丛 人 人 一 木 
2。 字 首 字 身 法 


中 文字 母 编码 
月 下 
田 十 口 


中 文字 母 编 码 


中 文字 母 编 码 
人 山 

土 土 下 

日 尸体 口 

人 竹 人 人 一 木 


英文 形 码 
BY 
由 


英文 形 码 


OU 
GGY 
A9SHR 
HUUMD 


凡是 字形 可 以 上 下 、 左 右 分 离 的 字 ， 它 的 最 上 方 或 最 左 方 的 字形 称 为 字 首 。 无 法 上 下 或 


. 13 ， 


左 大 分离， 钥 擅 字 典 上 的 惯用 字 首 也 看 作 字 首 。 字 首 外 的 全 部 字形 称 为 字 身 ， 字 身 可 上 下 、 
左 涯 分 离 的 字 ， 左 方 或 上 方 字形 称 为 次 字 首 ， 余 下 的 称 为 次 字 身 。 
字 首 部 分 最 多 取 两 键 。 若 字形 复杂 ， 取 首尾 两 键 ， 中 间 字 形 省 略 。 
例 字 ” 字 首 ” 字 首 取 码 : 
字 首 取 一 码 枝 木 木 
字 首 取 二 码 召 刀 户 竹 
字 首 取 首 尾 二 码 照 昭 日 口 
字 身 部 分 最 多 取 三 键 。 若 字形 复杂 ， 取 首 、 次 、 尾 三 键 ， 中 间 字 形 省 略 。 次 字 首 和 字 首 
一 样 最 多 取 首 、 尾 两 键 。 如 果 次 字 首 可 以 一 码 取 定 的 ， 字 身 仍 取 首 、 饮 、 尾 三 键 。 
例 字 ” 字 身 ” 字 身 取 码 


字 喘 取 一 码 林 木 木 
字 喘 取 二 码 屏 并 十 十 
字 喘 取 三 码 行 本 一 一 马 


字 喘 取 首 次 尾 三 码 ” 弯 杉 木 竹 竹 
次 字 首 不 能 一 码 取 足 的 ， 字 身 取 次 字 首 的 首 、 尾 及 字 尾 。 
例 字 “ 字 身 次 字 首 字 喘 取 次 字 首 的 首尾 加 字 尾 
冠 过 元 一 山 蕊 
前 委 剧 月 己 火 
3。 整 体 字 
字体 笔划 相连 贯 无 法 分 离 的 字 称 为 整体 字 。 


必 四 键 。 


例 字 取 法 钠 文 形 码 
狂 月 下 戈 ”HBYI 
两 一 中 月 下 ”MLBY 


有 关中 文字 母 编码 的 详细 叙述 请 参阅 《 汉 卡 中 文 输入 法 ?一 书 。9 
四 、 重 复 键 (人 键 ) 


1， 重复 字 的 处 理 
采用 中 文字 母 编码 法 会 出 现 一 些 重复 字 。 例 如 
日 与 日 的 编码 都 为 A 
未 与 宋 的 编码 都 为 JD 
己 与 已 的 编码 都 为 SU 等 。 
为 了 区 别 重 复 字 , 中 文字 母 编码 法 在 两 个 重复 字 中 的 一 个 字 编码 的 前 面 加 入 一 个 X 码 。 例 
如 
中 文字 ”编码 ”中 文字 编码 . 
月 A 三 | 入 A 
-未 JD 襟 XJD 
己 9U 已 X9U 


 @ 注 : “ 汉 卡 中 文 输入 法 》 住 住 科 技 事 业 有 限 公 司 编著 ” 松 岗 电 脑 图 书 资 科 有 限 公司 印行 
全 T4 】 


重复 字 表 见 < 汉 卡 中 文 输入 法 ?一 书 的 附录 二 。 


2， 图 形 字符 


在 汉字 系统 中 X 键 与 一 些 字母 键 组 合 


一 样 输入 并 出 现在 程序 中 。 
X 键 与 字母 键 组 合 产生 的 图 形 字 符 如 图 1-5-1 所 示 , 图 中 以 XB 表示 X 键 与 B 键 的 组 合 ， 


其 余 以 此 类 推 。 
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机 


Yi 
本 


工 - 5 
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co 
1 AN ， “1 
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10189581 
9 站 
必 : 
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， 可 产生 不 同 的 图 形 字符 ， 这 些 图 形 字符 如 同色 学 


AD  XE 
六 彬 
人 可 


< 15。 


第 二 章 “” 汉字 答 入 及 编辑 功能 


配 有 汉 卡 的 APPLE T PLUS 处 理 涩 字 的 程序 语言 是 中 文 的 APPLET SOFT BASIC 
语言 。 当 机 融 进 入 中 文 APELE SOFT BASIC， 可 以 输入 汉字 、 编制 汉字 信息 处 理 程 序 。 


第 一 节 ” 进 入 汉字 系统 


一 、 主 机 的 启动 


装 有 汉 卡 的 主机 启动 过 程 基本 上 和 未 装 汉 卡 时 相同 ， 如 果 不 使 用 DOS 系统 ， 打 开 电源 
后 机 器 直接 进入 英文 APPLE JI SOFT BAsICL， `. 若 要 使 用 DOS 系统 , 先 把 DOS3.3 盘 放 进 
1 号 软盘 驱动 器 ， 打 开 电 源 后 ，DOS 装 入 到 主 存 的 $9600~$BFFF 区 域 ， 并 且 在 屏幕 的 左 
下 方 出 现 提示 符 ] 及 闪 动 的 光标 ， 装 有 汉 卡 的 主机 ， 当 把 中 文 自动 启动 程序 作为 HELLO 
程序 处 理 时 ， 打 开 电源 后 ， 可 以 直接 进入 汉字 系统 ， 详 见 第 四 章 的 叙述 。 装 有 超级 汉 卡 的 主 
机 启动 过 程 及 其 使 用 方法 将 在 第 六 章 中 叙述 。 


一 、 进 入 中 文 APPLE SOFT BASIC 


在 英文 BASIC 下 使 用 命令 PR#CN， 或 者 把 中 文 自 动 启动 程序 加 在 汉字 信息 处 理 用 户 
程序 的 最 前 面 ， 都 可 以 进入 中 文 BASIC， 后 者 将 在 第 四 章 中 叙述 。 
PR# CN 命令 中 的 CN 表示 汉 卡 所 在 的 扩充 插座 号 码 ， 如 果 汉 卡 捅 在 3 号 扩充 揪 座 上 ， 
使 用 PR#3 命令 。 
主机 启动 后 ,在 英文 提示 符 ] 后 第 一 次 输入 PR#CN RETURN, 屏幕 上 出 现 如 下 字 葛 0O， 
### 佳 佳 C-PLUO9 T.A 汉 卡 es 
中 文字 形 产生 器 发 明 专利 字号 ，16832 
1983/02/20 改良 代号 ，2.4 
序号 ，19512 
。 ] 
字幕 左下 方 出 现 的 ] 是 中 文 APPLE SOFT BASIC 提示 符 ， 它 比 英文 系统 中 的 ] 大 ， 
这 就 表示 已 进入 汉字 系统 ， 用 户 可 以 输入 中 文 数据 处 理 程序 或 调用 现 有 的 程序 进行 中 文 信息 
的 处 理 。 
此 后 再 次 输入 PR# CN 命令 ， 不 再 出 现 上 述 字幕 ， 仅 清除 整个 英文 字幕 ， 并 在 屏幕 的 
左上 方 显现 中 文 APPLE SOFT BASIC 的 提示 符 ]。 


二 节 ”汉字 输入 及 屏幕 显示 
使 用 C-PLUST-A 汉 卡 ， 可 以 在 键盘 上 交替 输入 中 、 英 文字 母 ， 中 英文 输入 的 转换 


@ 注 ， C-PLUSI-A 汉 卡 以 及 S.C,C9-83 超 级 汉 卡 均 以 繁体 汉字 编码 , 本 书 为 了 方便 污 者 阅读 , 均 以 简化 字 代替 
欠 16 外 


由 CTRL-L 键 控制 ， 当 进 入 汉字 系统 时 ， 键盘 仍 设置 为 英文 输入 ， 按 了 CTRL-L ， 键盘 转 
换 到 汉字 输入 ， 若 是 返回 英文 输入 ， 再 按 CTRL-L 两 键 。 


一 、 汉 宇 屏 幕 显示 


进入 汉字 系统 ， 屏 幕 上 可 以 显示 汉字 ， 也 可 以 显示 英文 字母 、 数 字 及 其 它 符号 。 

在 汉字 系统 中 ,APPLE IT 使 用 英文 系统 中 高 分 辩 率 图 形 第 二 页 的 存 贮 区 $4000 一 $5FEFF 
来 显示 字 欧 ， 这 个 存 贮 区 能 在 屏 车 上 显示 10 行 ， 每 行 17 个 汉字 的 字幕 。 整 个 屏幕 分 成 两 部 
分 ， 用 屏幕 的 上 面 10 行 显示 中 文 APPLE SOFT BASIC 程序 及 处 理 过 程 屏幕 下 面 的 工行 
辣 定 贸 给 汉字 输入 时 显示 汉字 输入 状 太 奈 及 组 字 的 中 文字 母 。 

汉字 系统 的 中 文字 幕 是 17 字 x 10 行 ， 每 个 中 文字 点 阵 为 16 x16， 英文 字 记 是 34 字 x 10 行 ， 
每 个 英文 字母 、 数 字 或 其 它 符号 的 点 阵 为 8 x 16， 即 一 个 中 文字 占 2 个 英文 字母 的 位 置 ， 如 
果 一 行 中 显示 的 是 中 英文 字 、 数 字 及 其 它 符号 的 混合 句子 ， 当 一 行 的 最 右边 只 剩 下 一 个 英文 
字母 的 位 置 而 要 显示 的 却 是 中 文字 时 ， 系 统 会 自动 空 下 这 个 位 置 并 转 到 下 一 行 的 起 始 位 置 显 
示 中 文 。 

屏幕 最 下 面 的 1 行 是 否 显示 汉字 输入 状态 及 组 字 的 中 文字 母 由 CTRL-D 键 控制 。 如 果 
顺序 按 下 CTRL-D 及 CTRL-L ， 屏 幕 上 第 11 行 的 左 方 显示 “中 文 ” 两 个 小 字 ， 提 示 已 进入 
汉字 输入 状态 。 在 汉字 取 码 时 , “中文 ? 小 字 的 右边 显示 所 取 的 每 个 码 所 代表 的 中 文字 母 ， 若 
要 返回 英文 输入 状态 ， 顺 序 按 下 CTRL-L 及 CTRL-D， 第 11 行 的 中 文 显示 随 之 消失 。 汉 字 
输入 时 ， 如 果 不 先 按 CTRL-D ， 而 只 按 CTRL-L ， 屏 幕 上 没有 任何 改变 ， 即 第 11 行 不 最 
示 “ 中 文 ?这 两 个 小 字 。 
二 、 输 入 汉字 

刚 进入 汉字 系统 ， 键 盘 仍 为 英文 输入 状态 ， 用 户 可 以 在 键 稚 上 输入 英文 字母 、 数 字 及 其 
它 字符 来 编写 程序 或 写 入 命令 。 当 程序 中 需要 输入 汉字 时 ,顺序 按 CTRL-D 及 CTRL-L 使 鲁 
盘 转 换 到 汉字 输入 ， 屏 幕 上 的 第 11 行 的 左面 显示 出 “中 文 ?两 个 小 字 ， 同 时 机 器 发 出 响 铃声 ， 
提示 用 户 机 器 现在 开始 接受 中 文 输入 。 用 户 应 该 在 键盘 上 顺序 输入 一 个 汉字 编码 的 中 文字 
母 ， 每 输入 一 个 中 文字 母 都 会 在 中文? 二 个 小 字 的 右面 依次 显示 这 个 中 文字 母 。 输 入 一 个 字 
的 编码 后 ， 按 空格 键 ， 这 个 中 文字 就 组 成 了 ， 它 显示 在 光标 所 指 的 位 置 ， 而 左下 角 原先 显示 
的 组 字 中 文字 母 消失 ， 等 待 下 一 个 汉字 的 输入 ， 光 标 也 相应 地 右 移 一 个 汉字 位 置 。 

例 1 略 入 “姓名 "两 个 汉字 到 字符 中 变量 Ag$ 中 可 以 使 用 语句 INPUT Ag$, 假设 执行 这 
个 语句 时 ，“? ?出 现在 屏幕 的 左上 角 ， 姓 名 两 个 字 的 汉字 编码 分 别 是 VHQM 和 NIR， 输 入 
的 步骤 如 下 

按 CTRL-D.CTRL-L， 屏 幕 的 左下 泣 出 现 了 4 中 文 * 两 个 小 字 ， 见 图 2-2-1 

顺序 按 V.H.Q、M 键 在 “中 文 ?两 个 小 字 后 面 出 现 女 、 竹 、 手 、 一 四 个 中 文字 母 ， 见 图 
2-2-2; 

按 下 空格 键 ， 第 11 行 出 现 的 四 个 中 文字 母 消失 , “ 姓 ? 字 出 现在 光标 处 。 紧 接着 光标 移 
到 “ 姓 ? 字 的 右边 ， 见 图 2-2-3; 

再 顺序 按 N、I、R 三 个 键 ， 第 11 和 行 “中 文 ??" 两 个 小 字 后 面 出 现 了 弓 、 戈 、 口 三 个 中 文字 
母 ， 见 图 2-2-43 

再 按 空 格 键 ， 第 行 11 显 示 的 弓 、 戈 、 口 消失 ,“ 和 名 ? 字 显 示 在 “ 姓 ? 字 后 面 。 光 标 移 到 “名 * 

。 47， 
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最 后 按 RETURN 键 。“ 姓 名 ” 两 个 字 送 入 字符 串 变量 。 如 果 接 下 来 执行 的 是 END 语 
句 ， 提示 符 出 现在 下 一 行 起 始 位 置 ， 见 图 2-2-/。 
RETURN 键 仅 在 英文 输入 状态 下 有 效 ， 当 键盘 处 于 中 文 输入 状态 ， 它 不 起 作用 。 


三 、 汉 宇 、 英 文 交 蔡 输入 


汉字 系统 中 ， 当 键盘 处 于 英文 输入 状态 ， 可 以 输入 英文 字母 ， 数 字 及 其 它 符 号 ， 不 允许 
输入 汉字 ， 当 处 于 中 文 输入 状态 下 ， 可 以 输入 汉字 、 数 字 及 其 它 字 符 ， 而 不 允许 输入 英文 字 
母 。 

在 输入 数据 处 理 程序 时 ， 程 序 语句 常 出 现 由 中 、 英 文 组 成 的 句子 ， 下 面 举 例 说 明 这 种 语 
句 的 输入 过 程 。 

100 INPUT "请 输入 姓名 :Ag$ - 

在 提示 符 ] 后 输入 “100 INPUTY”， 接 着 按 CTRL-D，CTRL-L， 进 入 中 文 输入 状态 ， 
按 本 节 第 二 部 分 中 所 述 的 方法 输入 “请 输入 姓名 ?五 个 汉字 ， 再 按 CTRL-L 和 CTRL-D 返 回 
英文 输入 状态 输入 余下 的 符号 <， A$?， 最 后 按 RBTURN 键 ， 语 名 输入 结束 。 

也 可 以 先 在 英文 输入 状态 下 输入 “100 INPUT”， 然 后 转 到 中 文 输入 状态 下 输入 清 请 输 
入 姓名 ，“ 沁 4 “， 再 返回 英文 输入 状态 输入 “A$?。 

例 3 在 键盘 上 输入 ; 

200 PRINT “请 输入 第 儿 B “ 行 ^ 

在 英文 输入 状态 下 输入 “200 PRINT?; 

在 中 文 输入 状态 下 输入 “ “请 输入 第 ″” 光 

返回 英文 输入 状态 ， 输 入 和 DB 2” 

重 儿 进入 中 文 输入 状态 ， 输 入 “ 行 ”″” 2 

最 后 返回 英文 输入 状态 ， 按 RETURN 键 ， 这 个 语句 输入 结束 。 

也 可 以 按 其 它 的 输入 顺序 输入 这 个 语句 ， 只 要 记 住 两 点 ， 在 中 文 输入 状态 下 不 能 输入 英 
文字 母 RETURN 键 不 起 作用 。 


四 、 输入 出 错时 的 处 理 


1. 组 字 过 程 中 打 入 了 错误 的 中 文字 母 
例 4 “部 门 ? 的 “部 ”>， 汉 字 编 码 是 YRNL， 如 果 打 入 YRM 后 发 现 M 是 错 的， 处理 方 法 
是 按 一 次 生 键 ， 清 除 组 字 区 域 中 M 记 代表 的 中 文字 母 ， 这 时 ， 屏 幕 上 有 相应 的 变化 即 屏幕 上 
第 11 行 显示 的 M 所 代表 的 中 文字 母 “一 ?被 清除 ， 当 用 户 重新 打 入 正确 的 N 后 ， 第 11 行 上 原 
中 文字 母 “ 一 ”位 置 上 显示 和 所 代表 的 中 文字 母 “ 马 ?。 再 打 入 工 ， 最 后 按 空 格 键 ， 组 出 “部 ? 
字 。 
2. 组 成 的 汉字 不 是 所 需要 的 字 
例如 ， 用 户 欲 输入 “ 同 ? 字 ， 其 汉字 编码 是 BMR， 但 误 输 入 为 BB, 而 且 已 经 按 下 空格 链 ， 
拖 出 了 “ 朋 ? 字 ， 须 用 < 二 键 把 光标 移动 到 “ 朋 ?” 字 的 起 始 位置 ， 重 新 输入 正确 的 汉字 。 用 一 键 移 
功 光 标 要 注意 以 下 事项 : 
由 1 一 2 个 中 文字 母 组 成 的 字 ， 按 一 次 熏 键 ， 光 标 左 移 一 个 汉字 位 置 , 即 按 一 次 擂 键 光标 
半 同 到 这 个 字 的 起 始 位 置 ;y 由 3 一 5 个 中 文字 母 组 成 的 字 ， 按 一 次 和 二 键 光 标 仅 左 移 半 个 汉字 
1T9.。。 


位 置 ， 而 且 返 回 英文 输入 状态 ， 屏 幕 上 第 11 行 的 显示 随 之 消失 ， 再 按 一 次 二 键 ,光标 才能 回 
到 这 个 字 的 起 始 位 置 ， 并 重新 自动 返回 中 文 输入 状态 ， 重 现 第 11 行 字 划 。 在 按 <- 键 时 ,必须 
观察 光标 的 移动 的 位 置 ， 否 则 ， 有 可 能 破坏 上 一 个 汉字 ， 以 致 不 得 不 从 上 一 个 汉字 开始 重新 
输入 ， 也 可 能 遗留 下 原 汉字 的 一 半 字 形 ， 造 成 输入 错误 。 

3. 输入 的 中 文字 母 不 能 组 成 一 个 汉字 或 按键 超过 5 次 

由 于 不 是 所 有 的 中 文字 母 的 组 合 都 能 组 成 一 个 汉字 ,同时 , 编码 规则 规定 一 个 汉字 最 多 只 
能 由 5 个 中 文字 母 组 成 ， 所 以 当 输 入 的 中 文字 母 不 能 组 成 一 个 汉字 ， 例 如 输入 VECCM:， 或 
按键 超过 5 次 ， 机 器 都 会 发 出 响 铃声 作为 错误 的 警告 ， 这 时 光标 不 再 移 向 下 一 个 汉字 位 置 ， 
机 器 仍然 处 在 中 文 输入 状态 ， 可 以 直接 再 次 输入 正确 的 中 文 编码 。 


第 三 节 ”汉字 系统 的 编辑 功能 和 监控 中 可 执行 的 控制 字符 


英文 系统 下 的 11 个 下 SC 功能 在 汉字 系统 中 都 适用 的 ,它们 是 : 

ESC-A 光标 向 右 移动 一 个 英文 字母 位 置 ( 半 个 汉字 )。 

ESC-B 光标 向 左 移动 一 个 英文 字母 位 置 ( 半 个 汉字 )。 

ESC-C 光标 向 下 移动 一 行 。 

ESC-D 光标 向 上 移动 一 行 。 

ESC- 屯 ”清除 光标 横 线 所 在 行 从 横 线 到 行 末 的 整个 字幕 。 

>C-F 清除 光标 横 线 所 在 位 置 直到 整个 屏幕 右 下 角 的 字幕 。 

ESCI ”进入 编辑 状态 ， 光 标 向 上 移动 一 行 。 

ESCJ_ 进入 编辑 状态 ， 光 标 向 左 移动 半 个 汉字 位 置 。 

ESCK 进入 编辑 状态 ， 光 标 向 右 移动 半 个 汉字 位 置 。 

卫 >CM 进入 编辑 状态 ， 光 标 向 下 移动 一 行 。 

ESC-@ 清除 整个 屏幕 画面 。 

在 使 用 C PLUS E-A 汉 卡 的 中 文 BASIC 中 还 提供 了 两 名 CALL 语句 ， 其 功能 等 同 
于 ESC-E，ESC-F， 它 们 可 以 直接 在 程序 中 使 用 ， 详 见 第 三 章 叙 述 。 


二 、 监 控 中 可 执行 的 控制 字符 

英文 系统 中 的 所 有 控制 字符 都 保留 原 有 的 性 能 ， 在 汉字 系统 中 另外 提供 了 两 个 控制 字符 
CTREL-D 和 CTRL-EL。 

CTRL-B， 由 监控 进入 中 文 BASIC。 

CTRL-C 不 破坏 现行 程序 进入 中 文 BASIC。 

CTRL-G 使 机 器 发 出 响 铃 声 。 

CTRL-J 光标 向 下 移动 一 行 。 

CTRL-H 抹 去 前 一 个 英文 字母 ， 当 一 个 汉字 由 1 一 2 码 组 成 ， 按 一 次 CTRL-H 就 抹 去 

一 个 汉字 ， 当 一 个 汉字 由 3 一 5 码 组 成 ， 按 一 次 CTRL-H 仅 抹 掉 半 个 汉字 。 

CTRL-M 换行， 相当 于 RETURN 键 。 

CTRL-U 复制 原 屏幕 上 的 字符 ， 相 当 于 一 键 。 

e。 .20 。 


CTRL-X 抹 去 现在 这 一 条 命令 ， 并 在 句 末 显 示 “\" 符 号 。 

CTRL-S 停止 或 启动 屏幕 上 程序 清单 的 翻动 。 

CTRL-D 汉字 输入 时 ， 控 制 屏 幕 上 第 11 行 是 否 要 显示 中 文 输入 状态 及 组 字 字 母 。 
CTRL-L 控制 英文 输入 与 汉字 输入 之 间 的 切换 。 


三 、 中 文字 母 的 ASCI 码 


中 文字 母 答 入 时 使 用 其 形 码 的 英文 字母 键 ， 即 中 文字 母 使 用 小 写 英 文字 母 的 A3CEI 码 
值 。 所 以 ， 汉 字 系统 中 只 能 使 用 大 写 英 文字 母 , 比如 按 CTRL-L 后 , 击 A 键 ,输入 的 是 中 文字 
母 “日 ?的 十 进 制 ASC E 码 97, 存 贮 在 主 存 中 的 是 其 十 六 进 制 的 ASC E 码 61。 在 英文 输 六 状态 
下 击 A 键 ,输入 的 是 英文 字母 “<A” 的 十 进 制 ASC 下 袜 65。 中 文字 母 的 ASC IT 码 请 参阅 附录 焉 。 


第 四 节 ”汉字 系统 与 灿 文 系统 、 监 控 系 统 之 间 的 相互 巷 换 


一 、 由 汉字 系统 进入 监控 系统 


在 调试 程序 时 ， 常 需要 在 监控 系统 下 了 解 程序 或 数据 使 用 主 存 的 情况 。 在 英文 BASIC 
的 提示 符 ] 后 输入 CALEL - 151 命令 可 以 进入 监控 系统 ， 屏 幕 上 出 现 监控 系统 的 提示 符 *, 这 
里 我 们 称 它 为 英文 监控 系统 提示 符 。 由 中 文 的 BASIC 进入 监控 系统 也 使 用 CALL - 151 命 
令 (- 151 的 十 六 进 制 值 是 FF69， 是 监控 程序 的 入 口 地 址 )， 但 这 里 出 现 的 监控 系统 提示 符 * 
比 英文 上 控 系统 的 提示 符 * 为 大 ， 我 们 称 它 为 中 文 监 控 系 统 提示 符 ， 在 这 两 种 提示 符 下 ， 监 
控 功 能 相同 。 


一 、 由 监控 系统 进入 汉字 系统 


1。 在 中 文 监 控 系 统 提示 符 下 进入 中 文 BASIC 
使 用 ， 
esCTRL-B 这 种 方法 清除 原来 的 中 文 处 理 用 户 程 序 。 
sLTRL-C 这 种 方法 不 破坏 原 有 的 中 文 处 理 用 户 程序 。 
2. 在 英文 监控 系统 提示 符 下 进入 中 文 BASIC 
使 用 : 
s3CTRL-P RETURN 出 现 中 文 监控 系统 提示 符 s ， 然 后 用 CTRL-B 或 CTRL-C 进 
入 中 文 BASIC。 
也 可 以 先 用 CTRL-B 或 CTRL-C 进入 英文 BASIC， 再 用 PR#3 进 入 中 文 BASIC。 


三 、 由 汉字 系统 进入 英文 系统 


1。 由 中 文 BAsSIC 进入 英文 BASIC 
使 用 
(1) CALEL 64098 命令 ， 
地 址 64098 是 监控 系统 中 自 启动 程序 的 入 口 地 址 。 执 行 这 个 命令 后 转 去 执行 由 地 址 $FA62 
“=4098 的 十 六 进 制 数 ) 开 始 的 自 启动 程 序 ， 使 机 器 在 不 破坏 现行 程序 下 进入 英文 BASIC， 屏 
套 上 重 现 用 户 上 一 次 使 用 PR#CN 命令 时 屏幕 上 的 英文 字幕 ,然后 紧 接着 出 现 一 个 提示 符 ] 
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及 闪 动 的 光标 。 由 于 原来 的 汉字 处 理 程序 没有 被 破坏 ， 如 果 用 户 想 再 次 运行 ， 可 以 在 输入 
PR# CN 命令 后 ,直接 使 用 RUN 命令 ， 如 果 :HELLO 程序 中 有 中 文 自动 启动 程序 及 用 户 程 
序 ， 也 可 以 用 RUN HELLO 命令 重新 进入 中 文系 统 ， 装 入 并 执行 用 户 程序 。 

(2) CTRL RESET 键 

同时 按 CTRL.、RESET 两 个 键 也 会 使 机 器 转 去 执行 自 启动 程序 ， 进 入 英文 BASIC。 

2. 在 中 文 监控 系统 提示 符 * 下 进入 英文 BASIC 
使 用 ， 

*6CTRL-P RETURN 

假如 软盘 驱动 器 中 没有 放 进 软盘 ， 那 么 机 器 进入 英文 BASIC。 假 如 软盘 驱 动 器 中 放 进 
了 软盘 ， 进 入 软盘 上 面 的 HELLO 程序 。 

也 可 以 使 用 CTRL-RESET 键 进 入 英文 BASIC。 


“22。 


第 三 章 APPIE SOFT BASIC 语言 


APPLE SOFT BASIC 语言 是 一 种 功能 较 强 的 扩展 BCSIC 语言 ， 具 有 算术 、 多 得 和 函 
政 运算 、 字 符 让 处 理 、 直 接 调用 机器 语言 子 程序 等 功能 ， 并 具备 比较 完善 的 图 形 处 理 能 力 。 

在 磁盘 操作 系统 DOS3.3 的 支持 下 ，APPLE SOFT 可 处 理 磁 一 文件 。 

APPLE SOFT 解释 程序 固化 在 APPLEI 微 机 的 ROM 中 ， 约 占 10K 字 节 。 

配置 汉 卡 的 APPLE I 微 机 能 对 汉字 进行 处 理 的 程序 语言 只 能 是 APELE 5OFT BA- 
SIC。 汉 字 是 由 中 文字 母 组 成 的 。 它 可 以 作为 字符 串 处 理 。 凡 是 可 使 用 字符 串 变量 的 BA> IC 
语句 都 可 以 直接 使 用 汉字 。 

下 述 17 个 英文 APPLE SOFT BASIC 语句 在 配备 C-PLUS T-A 汉 卡 的 汉字 系统 中 
不 能 使 用 。 它 们 是 : 

VTAB，HTAB，TAB，POS，SPC，TEXT，GR,， NORMAL，FLASH,， INYERSP， 

PLOT，HLIN，VLIN，COLOR， SCRN，HOME，HGR。 

陈 了 这 17 个 语句 外 ， 所 有 英文 BASIC 语句 在 汉字 系统 中 基本 上 都 保持 了 原 有 性 能 。 

配备 S.C.C.G-83 超级 汉 卡 的 中 文 BASIC 语言 请 参阅 第 六 章 。 


第 一 节 APPLE SOFT 的 一 些 基 本 概念 


一 、 数 
APPLE SOFT 中 的 数 采用 十 进 制 形 式 。 
1。 整 数 
APPLE SOFT 中 如 数 表示 范围 是 - 32767 一 32767。 等 个 整数 在 内 存 中 占 2 个 字 节 存 贮 
位 置 。 一 个 二 进 制 位 存放 数 符 ， 其 余 十 五 个 二 进 制 位 人 存放 数字 。 
2。 实数 
APPLE SOFT 中 实数 表示 范围 是 -1.70141183 x 1038 一 1.70141183 X 10”“。 AITIL 也 
SOFT 把 绝对 值 小 于 2.93873588 x 10-39 的 实数 作为 0 处 理 。 
实数 输出 格式 有 三 种 形式 ， 
(1) 整数 
(2) 定点 数 
有 效 数字 9 位 ， 超 过 9 位 ， 原 则 上 四 含 五 入 。 
例如 ， ]PRINT.12.34567896 五 入 
12.345679 
]PRINT 12.34567894 ”四 会 
12.3456789 
(3) 浮 点 激 
当 实 束 的 站 小 于 0.01 或 大 于 108 时 ， 为 了 阅读 方便 ， 以 浮 点 形式 显示 或 打印 。 
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浮 点 数 格 式 : 
士 NE 也 十 ee 
N 正 负 整数 或 带 有 小 数 的 正 负 实数 
己 ”表示 以 10 为 底 ， 
ee 一 位 或 二 位 整数 ， 是 指数 值 。 
例如 ， ]PRINT 1111111114 四 合 
1.11111111E +09 
]PRINT lll1111115 五 入 
1.11111115 已 +09 
实数 在 内 存 中 是 按 二 进 制 浮 点 格式 存放 的 ， 占 用 五 个 字 节 存 贮 位 置 ,一 个 字 节 存放 指数 ， 
另外 四 个 字 节 存放 实数 部 分 。 


二 、 变 量 与 数组 
1。 简单 变量 

能 表示 不 同 数值 的 量 叫 变量 。 表 示 该 变量 的 字符 称 为 变量 名 。 

APPLE SOFT 规定 交 量 名 是 由 字母 开头 的 字母 数字 串 组 成 ， 变 量 名 的 长 度 可 以 是 1 一 
238 个 字符 ， 最 后 一 个 字符 指出 变量 类 型 。 

[]， 记 ] oo eso。 国 醒 
1 一 最 后 一 个 字符 表示 挛 量 类 型 
[一 可 以 是 任何 文字 或 数字 
一 一 第 一 个 字符 必需 是 字母 

但 APPLE SOFT 只 能 识别 前 面 两 个 字符 ， 例 如 ， 

AB 与 ABC 被 作为 同一 个 变量 。 

给 变量 命名 时 ， 应 尽量 使 名 字 与 实际 意义 相近 ， 以 利 阅读 程序 。 

APPLE SOFT 中 简单 变量 分 为 两 大 类 ; 

(1) 数值 变量 ; 

(2) 字符 串 变 量 。 

其 中 数值 变量 义 分 为 整 型 变量 与 实 型 变量 两 种 。 

实 型 变量 名 以 任意 数字 或 字母 结尾 ， 如 A，LN 等 

字符 串 变量 名 以 <$> 结 尾 ， 如 A$，UU$ 等 ; 

理 型 变量 名 以 *%? 结 尾 ， 如 A%、UU% 等 。 

每 个 字符 串 变 量 存 贮 的 字符 个 数 不 能 超过 255 个 。 

不 同类 型 的 变量 可 以 以 相同 的 字母 数字 串 ( 陈 最 后 一 个 $、% 字 母 ) 命 名 。 如 A,A$,A%， 
表示 泣 个 不 同类 型 的 变量 。 变 量 名 中 不 能 包 分 保留 字 。 保 留 字 见 附录 工 ， 它 是 供 命令 或 程序 
语句 专用 的 字符 串 。 

2。 数 组 

APPLE SOFT 中 有 三 类 数组 ， 它 们 是 整 型 数组 ， 实 型 数组 和 字符 型 数组 。 其 命名 方式 
和 变量 的 命名 方式 相同 。 数 组 把 一 组 有 序 的 数 或 变量 作为 一 个 整体 来 处 理 。 组 成 数组 的 变量 
元 素 带 有 相应 的 下 标 ， 称 为 下 标 变量 。 下 标 个 数 为 na 的 数组 称 为 na 维 数组 。 
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数组 表示 格式 ， 

一 维 数 组 名 (下 标 ) 如:，A(L); 

二 维 数组 名 ( 行 标 ， 列 标 ) 如 ，A$(I，J)。 

数组 A(I) 中 若 I=3， 则 A(1)，A(2)，A(3) 称 为 下 标 变量 。 


APPLE SOFT 中 下 标 下 界定 为 0。 系 统 初 始 设 定 11 个 下 标 ,， 若 超过 11 个 ， 必 须 用 
DIM 语句 设 定 ， 其 最 大 下 标 值 仅 受 内 存 容 量 的 限制 。 维 数 最 多 可 达 88 维 。 数 组 和 简单 变量 


允许 取 相 同 的 和 名， 但 数组 名 不 能 相同 ， 即 使 是 不 同 维 数 的 数组 。 


三 、 算 术 表 达 式 和 标准 函数 
1。 算 术 表达 式 


算术 表达 式 是 由 常数 、 简 单 变量 、 下 标 变 量 、 某 些 函数 等 用 算术 运算 符 ， 圆 括号 组 成 的 


式 子 ， 其 运算 结果 是 一 个 数值 。 
AEELE SOFT 中 算术 运算 符 及 运算 的 优先 级 次 序 如 下 : 
优先 级 顺序 算术 运算 符 意义 


| 和 乘 时 
富 一 负 号 
到 */ 乘 、 除 
| 十 一 加 、 减 


避 生 要 则 由 内 向 外 计算 、 同一 优先 级 中 ， 依次 由 左 向 右 。 
2。 标 准 画 数 

APPLE SeFET 中 能 计算 如 下 一 些 标准 函数 ， 
SIN(X) 求 X 的 正弦 值 ; 
COS(X) “” 求 又 的 余弦 值 
TAN(CX) 求 又 的 正切 值 
ABS(X) 求 X 的 绝对 值 ; 
SGN(X) 求 双 的 符号 函数 
INT(X) 求 X 之 不 大 于 X 的 最 大 整数 ; 
SQR(X) 求 X 的 平方 根 (X 关 0); 
EXP(X) 求 X 的 以 e 为 底 的 指数 函数 ; 
LOG(X) 求 X 的 以 e 为 底 的 对 数 函 数 ; 


RND(X) 求 产 生 一 个 [0， 匡 区 闻 中 的 均匀 分 布 的 随机 函数 。 


说 明 ， 
(1) 三 角 函 数 中 的 变量 X 以 弧度 给 出 
《2) 符号 函数 跑 义 为 


f 义 <<0 
SGNCX)= 1 0 X=10 
[ 入 >0 3 


(3) INT 函数 产生 一 个 不 大 于 又 的 最 大 整数 ， 例 如 ， 
INT(7.6) =7 INTC-- 5.72)= - 


(4) 自 变 量 可 以 是 一 个 常数 或 表达 式 ， 旧 必须 用 括号 括 起 来 ， 在 算术 过 达 式 中 可 直接 引 
P=9QR(CX) 


(5) 标准 函数 可 以 蔡 套 使 用 ， 例 如 ，B= 5GN(ABS(A))。 


四 、 宇 符 串 


日 常生 活 中 常 遇 到 大 量 非 数值 量 ， 如 用 英文 或 拼音 字母 表示 的 姓名 ， 它 是 由 字母 组 成 的 
一 串 字 符 ， 若 用 汉字 表示 ， 则 是 由 中 文字 母 组 成 的 一 串 字 符 。 字 符 串 是 字符 的 组 合 ,APPLE 
SOFT 中 引进 字符 串 变量 来 描述 。 

APPLE SOFT 规定 字符 串 的 字符 个 数 应 小 于 256 个 ， 空 格 也 作为 字符 计 入 字符 串 。 汉 
字 当 作 字 符 串 处 理 。 字 符 串 在 程序 语句 中 出 现时 必须 以 双 撒 号 括 起 来 ， 如 /ABC2，? 中 文 / 
等 。 没 有 字符 的 字符 串 称 为 空 串 〈 用 光 表 示 )。 在 内 存 中 一 个 字符 串 中 的 每 个 字符 占 一 个 字 
节 ， 这 个 字符 串 另 外 还 占用 了 三 个 额外 字 节 ， 其 中 一 个 字 节 存 放 字 符 串 长 度 ， 另 外 两 个 字 节 
容 放 字符 串 内 容 的 起 始 字 节 地 址 。 

几 个 字符 串 可 以 用 “ -:- ”号 连 起 来 构成 新 的 字符 串 ， 称 为 字符 串 的 连接 。 

两 个 字符 串 可 以 用 关系 运算 符 比较 大 小 .系统 还 给 字符 串 的 处 理 提 供 若干 个 字符 串 函 数 ， 
我 们 将 在 下 面 逐 步 叙 述 。 


第 二 节 ”输出 语 名 (PRINT 语句 ) 


APPLE SOFT BASIC 的 输出 语 名 (PRINT 语句 ) 可 以 在 屏幕 上 显示 变量 或 表达 式 的 值 
以 及 字符 串 。 如 果 打 印 机 已 被 接 通 ， 则 打印 输出 。 


一 、 执 行 方式 


1。 直接 式 
PRINT 语句 可 以 在 ] 提 示 符 下 直接 执行 。 例 如 ; 
]PRINT 100s25 RETURN 
2500 
]PRINT “ABCD RETURN 
ABCD 
PRINT 可 以 用 “?? 键 代替 ， 要 输出 的 汉字 作为 字符 串 出 现在 语句 中 ， 在 汉字 系统 提示 符 
下 打 入 语句 : 
]? “姓名 ”RETURN 
姓名 
2.， 间接 方式 
当 了 RINT 语句 出 现在 程序 中 ，APPLE I 把 输入 的 程序 存 入 RAM, 但 并 不 执行 程序 中 
任何 命令 ， 必 须 打 入 RUN 命令 ， 程 序 才 被 执行 , 当 执行 到 PRINT 语句 时 显示 或 打印 输出 。 
例如 ， 
10 PRINT "ABCDY7 
20 END 
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RUN 
ABCD 


二 、 输 出 格式 
当 大 批 信 息 输 出 时 ， 为 使 结果 清晰 ， 人 们 往往 对 输出 格式 有 不 同 的 要 求 ， 所 以 了 RINT 
语句 也 有 不 同 的 输出 格式 。 
1， 基本 格式 
这 是 最 简单 的 输出 格式 ， 例 如 ， 
10 PRINT 2e10+5 
RUN 
25 
要 输出 变量 的 值 ， 必 须 先 对 变量 赋值 - 
10 LETX=10 
20 PRINT 3* 叉 
RUN 
30 
一 行 中 司 以 写 上 几 个 PRINT 语句 ， 例 如 ， 
10 Af$ =7 姓 名 2: B$ =7 年 龄 / 
20 PRINT Ad$:PRINT Bf 
RUN 
姓名 
年 龄 
PRINT 语句 双 搬 号 中 的 字符 全 部 原样 照 印 ， 包 括 空 格 。 
例如 : 
10 了 PRINT 7 姓名 年 龄 7 
20 END 
RUN 
姓名 .年龄 
英文 系统 中 , 当 PRINT 语句 后 面 没有 任何 参数 时 ,相当 于 输出 一 个 空 行 。 在 中 文 BASIC 
三 元 芝 功能 。 
2. 固定 格式 
这 种 格式 在 PRINT 语句 中 使 用 逗号 分 隔 输 出 项 ， 在 APPLE SOFT 中 , 它 把 一 个 输出 
亏 芝 或 3 个 区 ， 逗 号 为 输出 项 在 一 个 区 的 终止 符号 ， 下 一 个 输出 项 将 移 到 下 一 个 区 的 起 始 位 
: 在 笨 出 项 在 某 区 显示 不 下 ， 可 在 下 一 个 区 中 继续 显示 。 当 第 3 个 区 用 满 ， 则 移 到 下 一 行 
“ 等 一 个 区 继续 显示 。 
这 三 个 显示 区 在 屏幕 上 的 位 置 如 下 ; 
1 17 33 40 
1 1 1 
一 一 一 一 一 


一 一 -一 / 一 / \ -一 一 一 一 ， .一 一 一 / 


第 一 个 显示 区 第 三 不 量 示 区 第 三 个 显示 区 
16 个 位 置 16 个 位 置 8 个 位 置 


| 外 


例如 : 
10A=123:B=456:C=789 
20 PRINT A，B，C 
RUN 
123 456 - 789 
当 逗 号 出 现在 打印 语句 末尾 时 ， 执 行 该 打印 语句 后 不 换行 ， 下 一 个 打印 语句 第 一 项 的 值 
接着 打印 在 本 行 下 一 个 区 的 起 始 位 置 上 。 例 如 
10 LETX=20 
20 PRINT /X=7， 
利 
10 LETX=20 
20 PRINT ZX= /， 
30 PRINTX 
两 程序 输出 结果 相同 
RUN 
X= 20 
若 使 用 C-PLUS 1-A 汉 卡 , 这 种 格式 不 能 使 用 。 但 使 用 超级 汉 卡 , 则 可 使 用 这 种 格式 。 
详 见 第 六 章 邹 述 。 
3。 紧 次 格式 
这 种 格式 在 PRINT 语句 中 使 用 分 号 分 隔 输 出 项 ， 各 输出 项 闻 不 留 空格 ， 连 续 显 示 在 习 
幕 上 。 例 如 ， 
10 A$ =7 姓 名 7:B$ =7 年 龄 :CC = 7 性 别 / 
20 -PRINT AZ5B$i775C$ 
RUN 
姓名 号 年 龄 性别 
又 如 ; 
10 T=540 
20 PRINT “总 分 =23;V 
RUN 
总 分 = 540 
如 果 语 句 最 后 以 分 号 结束 ， 则 输 包 本 语句 的 信息 后 不 再 换行 ,而 紧 接 着 输出 下 一 个 
PRINT 语句 中 的 信息 。 例 如 
10 V=540:PRINT “总 分 =2; 
20 PRINT V 
结果 与 上 例 一 样 。 
4。 带 有 格式 函数 的 PRINT 语句 
在 PRINT 语句 中 本 以 使 用 具有 跳 过 空白 位 置 功能 的 SPC 函数 及 确定 各 给 出 项 打印 或 
显示 的 起 始 位 置 的 TAB 格式 函数 。 
(1) SFC 函数 功能 
SPC 函数 用 在 PRINT 语句 中 ，SPC 后 面 括号 内 的 数字 表示 希望 跳 过 空白 位 置 的 数目 。 
。.28 。 


例如 下 面 的 程序 将 TOP SECRET 标题 置 于 屏幕 的 中 央 。 


10 HOME 
20 PRINT SPC(15)37TOP SECRET” 
30 END 
RUN 

TOP SECRET 
5PC 后 面 使 用 分 号 。 


(2) TAB 函数 功能 
TAB 功能 只 能 在 了 RINT 语句 中 使 用 。 它 指出 了 打印 的 位 置 。 例 如 ， 
10 了 PRINT7ZNAME2Z TAB(10)379TREET2Z TAB(20)37CITYY7 
它 指 示 从 第 10 列 开始 打印 字符 串 “STREET?， 从 第 20 列 开始 打 中 和。 
TAB 括号 中 可 以 是 变量 或 表达 式 。 
自 使 用 C-FLUSEI-A 汉 卡 ， 这 两 种 项 数 不 能 使 用 。 车 使 用 超级 汉 卡 ,5 可 用 这 两 种 函数 。 
详 见 第 六 章 和 叙述 。 


第 三 节 ”提供 数据 的 语句 
在 汉字 系统 、 英 文系 统 中 都 可 以 使 用 三 种 提供 数据 的 语句 。 


上 一 节 已 经 在 程序 中 使 用 了 赋值 语句 (LET 语句 )，LET 语句 把 常数 或 表达 式 的 值 赋 给 
到 量 或 把 字符 串 ( 包 括 汉 字 字 符 串 ) 赋 给 字符 串 变 量 。 

例如 ， 求 半径 人 = 10 的 圆 的 面积 。 

10 LET R=I10 

20 LET S=3.14159。ReR 

30 PRINT 7 面积 = 光 .S 

40 上 ND 

LET 语句 的 执行 过 程 是 先 计 算 等 号 右边 的 算术 玫 达 式 的 值 ， 并 把 结果 赋 给 等 号 十 边 的 
瑟 量 。 如 本 例 中 语句 20。 

LET 语句 中 的 等 号 意义 与 数学 上 不 同 ， 比 如 LET X=X+I 在 BASIC 中 表示 把 X 原 有 
二 工 工 后 再 送 回 X 中 去 ， 此 时 双 原 有 的 值 被 入 的 新 值 替 换 了 。 

LET 语句 中 的 LET 可 省 略 ， 要 赋值 的 汉字 可 以 直接 作为 字符 串 出 现在 语句 等 号 右边 
三 双 扩 号 里 。 例 如 : 

10 YY$= “同济 大 学 / 

热 行 这 个 语句 后 ，Y$ 中 存放 了 同济 大 学 四 个 字 的 编码 字母 十 六 进 制 AsCE 码 值 。 这 
工 字 的 汉字 编码 分 别 是 BMR，EYX，K，HBND， 在 字符 串 变量 存 贮 区 的 存 贮 形 式 是 
:2 sD72?20657978206B2068626E6420( 中 文字 母 的 ASCI 码 表 人 参见 附录 焉 )。 使 
= --2LU9I-A 汉 卡 的 汉字 系统 中 字符 溃 变 量 从 主 存 $9000 开始 符 下 存放 。 

辫 衬 符 串 紫 值 语句 中 ， 可 以 把 几 个 字符 串 用 “+ ?号 连接 起 来 构成 新 的 字符 串 ， 再 赋值 给 
三 交 量 。 这 个 字符 串 的 操作 过 程 称 为 上 溃 的 联接 。 例 如 ; 


， 49 ， 


10 Y$= 7 学生" + 名册" 

RUN 

学 生 名 册 

或 者 用 如 下 的 程序 ， 

10 A 一 /学 生 / 

20 PRINT A$+7 名 册 ” 

得 到 的 结果 相同 。 

汉字 可 以 和 其 它 字符 组 成 字符 串 ， 例 如 ， 

10 AS$=7 英 语 / 

20 B$=7807 

30 PRINT AS$+B$ 

RUN 

英语 80 

一 个 数值 可 以 借助 于 系统 提供 的 字符 串 函数 转换 成 字符 串 ， 再 和 包含 有 汉字 的 字符 串 棚 
连接 。 

10 A$=/7 文 件 7:X=1 

20 B$=A$+STRSCX) 

30 PRINT By$ 

RUN 

文件 1 

STR$ 函数 详 见 本 章 第 七 节 叙 述 。 


二 、 读 数 语句 (READ ) 和 置 数 语句 (DATA) 


每 个 LET 语句 只 能 给 一 个 变量 赋值 ， 如 果 要 对 多 个 变量 赋值 ， 要 使 用 多 个 LET 语句 ， 
很 不 方便 。DATA 和 READ 语句 配合 可 以 对 成 批 变量 或 字符 串 变 量 赋值 。 

格式 ，DATA 数据 ， 数 据 ，……， 数 据 

READ 变量 ， 变量 ， oo。 , 恋 量 

DATA 语句 是 非 执 行 语句 , 它 为 READ 语句 准备 数据 ，READ 语句 是 可 执行 语句 , 执 
行 时 从 DATA 语句 中 顺序 取出 数据 ， 依 次 赋 给 READ 语句 中 的 各 个 变量 。 所 以 DATA 语 
句 中 数据 必须 按照 READ 语句 中 变量 的 先后 次 序 给 出 ， 数 据 类 型 应 和 变量 类 型 一 致 ,例如 ， 

10 了 人 EAD A，B，Cy 

20 DATA 100，20，《XYZ7 

程序 执行 后 ，A = 100，B = 20，C$ 中 为 XYZ。 

DATA 语句 中 的 数据 个 数 应 大 于 等 于 READ 语句 中 变量 的 个 数 。 否 则 ， 当 数据 区 的 数 
据 用 完 ， 而 READ 语句 还 需要 数据 ， 计 算 机 输出 出 漠 信 息 。“QOUI OF DATA ERROR 。 
DATA 语句 在 原 程序 中 可 置 于 任意 位 置 上 。 

要 输入 的 汉字 本 以 直接 写 在 DATA 语句 中 ， 以 双 撒 号 括 起 来 。 例 如 ， 

10 DATA “姓名 7， “年 龄 /， “人 性别“ 

20 了 READ A$，B$，Cpy 
执行 程序 后 ，A$，B$，Cy$ 中 分 别 存放 了 “姓名 ”，“ 年 龄 >, “性 别 ? 各 汉字 编 冯 字母 的 于 六 

， 30 ， 


进 制 ASCE 码 值 。 


三 、 恢 复数 据 区 语句 RESTORE 语句 


如 果 要 把 数据 20，40， 字 符 串 “XYZ”, “中 文 ? 送 到 A，B，C$，D$, 眉 ,F,G$,H$ 及 1， 
J，K8$，L$ 中 ， 用 READ 和 DATA 语句 ， 程 序 写 成 ， 

10 了 READ A，B，C$，D9 

20 READE，F，G$，H$y 

30 READ I，J，K$4，L4$ 


100 DATA 20，40，“XYZZ， 7 中 文 Z 

110 DATA 20，40，“XY27:， “中 文 / 

120 DATA 20，40，7XYZZ， 7 中 文 7 “ 

尽管 相同 的 数据 被 使 用 ， 但 程序 中 要 重复 写 已 ， 因 为 READ 和 DATA 语句 要 配合 全 用 。 
为 了 节省 程序 和 内 存 ，DATA 的 数据 若 重 复 使 用 一 次 以 上 时 ， 可 以 使 用 人 E2>TORE 语句 。 

APELE OFT 中 设置 一 个 指针 ， 它 指向 当前 要 读 的 数据 是 DATA 语句 中 的 哪 一 个 数 
据 ， 使 用 RESTORE 语句 使 指针 恢复 到 初始 位 置 ， 即 第 一 个 DATA 语句 的 第 一 个 数据 前 。 
这 样 一 个 DATA 语句 中 的 数据 便 可 反复 使 用 。 

上 例 可 改 为 ， 

10 READ A，B，C$，D$ 

20 上 人 抚 STORE 

30 READE，F，G$，H$ 

40 下 Eo9TORE 

50 READ I，J，K$，L$ 

60 DATA 20，40，7XYZ7， 7 中文 7 

如 果 只 要 重复 使 用 一 部 分 数据 ， 比 如 上 例 中 若 两 个 RES>TIORE 后 只 要 重复 使 用 ^XY2 
及 “中 文 ? 两 个 数据 ， 并 分 别 送 到 E$，F$，G$， 孔 $ 中， 必须 在 程序 中 作 下 列 处 理 , 虚设 
一 变量 X 来 控制 数据 的 传送 。 

10 READ A，B，C$，Dj$ 

20 上 ESTORE 

30 READ X， 久 

40 人 READ E$，Fy$ 

50 及 丘 STORE 

60 READX，X，G$，Hf$ 

70 DATA 20，40，?2XYZ7Z，7 中 文 7 

这 种 处 理 方 法 称 为 “ 假 读 ?。 


加、 键盘 输入 语句 (INPUT 语句 ) 


一 个 变量 ， 如 果 它 的 值 要 由 用 户 在 执行 程序 时 加 以 控制 ， 则 可 用 INPUT 语句 输入 。 热 
乞 IEIUTI 语句 ， 系 统 等 待 用 户 从 键盘 上 输入 变量 值 。 它 是 人 机 对 话 的 重要 方式 。 例 如 : 
10 INPUT A，Bj 


* 3S1 ， 


20 PRINT A，By 

执行 INPUT 语句 ， 屏 幕 上 提示 “?” 符 号 ， 输 入 的 数据 必须 按 语句 中 变量 顺序 依次 输入 ， 
各 数据 之 间 用 逗号 分 开 ， 数 据 类 型 必须 和 变量 类 型 相同 。 数 据 个 数 和 变量 个 数 必 须 一 致 。 如 
果 输 入 的 数据 类 型 和 变量 的 数据 类 型 不 一 致 ， 系 统 在 屏幕 上 显示 “REENTER*， 并 重新 执 
行 该 INPUT 语句 ， 用 户 必须 重新 输入 。 如 果 输 入 的 数据 个 数 小 于 INPUT 语句 中 变量 的 个 
数 ， 屏 幕 上 出 现 “???， 原 先 输入 的 数据 仍然 有 效 ， 用 户 可 以 继续 输入 余下 的 数据 。 本 例 
中 ， 当 执行 INPUT 语句 时 ， 用 户 若 在 键盘 上 输入 “20， ABC?， 则 A=20，B$ 为 字符 串 
ABC。 

如 果 要 把 汉字 输入 到 字符 串 变量 A$ 中 ， 使 用 如 下 语句 ; 

10 INPUT Af$ 

执行 这 个 程序 时 出 现 *“?”, 我 们 可 以 在 “?> 后 面 按照 上 一 章 所 述 的 汉字 输入 方法 输入 汉字 。 

在 INPUT 语句 中 司 以 写 入 任意 字符 串 作为 程序 运行 中 的 提示 符 。 字 符 串 长 度 不 限 ， 只 
要 这 个 语句 不 超过 255 个 字符 即 可 。 语 名 中 最 多 只 能 设置 一 个 提示 符 。 例 如 ; 

100 _ INPUT “DO YOU WISH TO DO THIS NOW?(Y OR N)Q 

在 INPUT 语句 中 可 以 直接 写 入 汉字 作 提 示 符 ， 例 如 ， 

10 INPUT 7 姓 和 名， Ap 

执行 这 个 语句 时 ， 在 屏幕 上 输出 “姓名 ”两 个 字 ， 提 示 用 户 输入 某 人 的 姓名 。 这 时 不 出 现 
“?”。 输 入 的 汉字 紧 接 在 “姓名 :” 后 显示 。 

PRINT 和 INPUT 语句 配合 使 用 也 可 以 实现 上 例 的 功能 。 

例如 ， 

10 PRINT 7 姓名 ，7 

20 INPUT Ag 

不 过 执行 这 个 程序 时 ， 提 示 符 “姓名 :? 出 现 后 , 在 屏幕 下 一 行 显示 “??” 号 。 如 果 希 望 不 出 
现 “?” 号 ， 而 且 输 入 的 数据 显示 在 同一 行 ， 使 用 程序 ， 

10 了 PRINT 7 姓名 :2; 

20 INPUT 2 7;Ag 

设计 一 个 数据 处 理 系统 ， 希 望 与 用 户 界 面 简明 ， 方 便 ， 易 为 用 户 记 接 受 。 一 般 通过 系统 
与 用 户 间 的 问答 方式 进行 。 系 统 运行 时 ， 每 一 步 屏 幕 上 均 用 中 文 提示 用 户 应 该 做 什么 ， 出 错 
时 用 中 文 指示 错误 性 质 ， 并 提示 应 该 如 何 处理 。 需 要 用 户 作出 选择 回答 时 ， 为 了 方便 用 户 ， 
对 选择 项 目 加 以 编号 ， 并 用 中 文 提示 用 户 怎样 用 数字 代替 中 文 回答 ， 用 户 只 要 按 相应 的 数字 
键 ， 系 统 就 能 响应 。 这 样 ， 即 使 不 懂 计算 机 的 用 户 也 能 很 快 掌 握 使 用 。 所 以 上 述 PRINT 和 
INPUT 语句 配合 输出 提示 符 ， 在 编制 数据 处 理 系统 程序 时 是 很 有 用 的 。 


执行 GET 语句 ， 程 序 等 待 从 键盘 上 输入 一 个 键 ， 但 不 在 屏幕 上 显示 这 个 字符 .. 没有 按 
键 ， 重 复 执 行 SET 诸 名 。 

例如 : 

10 PRINT ZKEY IN ANY KEY7 

20 GET Af 

30 : 


。32 。 


40 : 
程序 执行 到 语句 20 时 ， 等 待 从 键盘 上 输入 任 一 键 后 继续 执行 。 


六 、 暂 停 党 名 (END .STOP 语句 ) 
END 语句 表示 源 程序 的 结束 。 执 行 END 语句 ， 程 序 中 止 ， 屏 幕 上 出 现 光 标 。 也 可 以 
不 畔 END 语句 而 终止 程序 。 

SITOP 语句 暂停 程序 的 执行 。 执 行 STOP 语句 时 ， 屏 幕 上 指示 暂停 在 哪 一 个 语句 行 上 ， 
云 信 息 “BREAK IN N?，N 为 标号 。 暂停 时 计算 机 保留 各 变量 的 当前 值 ， 用 户 吉 以 输入 
当 芝 命令 检查 程序 执行 的 情况 以 及 采取 一 些 相 应 的 措施 ， 以 使 程序 能 正确 执行 。 对 于 被 
、\D.STOP 语句 或 CTRL-C 操作 暂停 的 程序 ， 可 以 输入 CONT 命令 ， 使 程序 从 和 暂停 处 
泛 故 行 下 去 。 但 在 CONT 命令 输入 之 前 ， 不 允许 改动 程序 。 

STOP 语句 格式 ，STOP - 

END 语句 格式 ，END。 


1 机 


吕 


七 、 注 释 语 句 REM 


用 以 对 有 关 程 序 段 注释 文字 说 明 。 

地 式 ， REM 需 注 释 的 内 容 

这 是 一 个 说 明 性 的 语句 ， 不 被 执行 。 它 可 以 出 现在 程序 的 任意 位 置 。 常 安排 在 程序 段 的 
喜 邱 。 说 明 程 序 段 的 作用 。 汉 字 可 以 直接 出 现在 REM 语句 中 。 


第 四 节 转向 语 人 句 


程序 运行 时 ， 通 常 按 标 号 大 小 的 顺序 执行 各 语句 。 但 是 ， 根 据 数 据 处 理 的 要 求 ， 有 时 需 
要 攻 变 这 种 顺序 ， 跳 寺 几 个 语句 ， 转 到 前 面 或 后 面 的 某 一 语句 去 继续 执行 时 ， 就 要 用 到 转向 
三 可。 

AITLTLE >OFT BAsSIC 语言 转向 语句 有 三 种 ， 它 们 是 无 条 件 转向 语句 ， 条 件 转 癌 语句 
及 选择 转 癌 语句 。 


一 、 无 条 件 转向 语 名 (GOTO 语句 ) 

CQOIO 语句 使 程序 无 条 件 转 去 执行 SOTO 后 面 标号 所 指出 的 语句 。 这 个 标号 必须 在 程 
三 让 出 现 ， 否 则 机 内 报 错 。 

例 1 编制 一 个 统计 学 校 学 生 总 数 的 程序 。 输 入 的 是 各 个 班级 的 学 生 数 。 

10 工 =0 

20 INPUT S 

30 工 = 工 +9 

40 了 上 RINTYZTOTAL IS9:73T 

50 GOTO 20 

60 END 

每 输入 一 个 班级 学 生 数 ， 显 示 当 前 的 累加 值 ， 然 后 无 条 件 转向 语句 20， 继 续 输 入 下 一 个 
变 受 的 学 生 数 。 可 以 改 用 中 文 提示 输入 及 显示 结果 。 


9 33 9 


5 REM ** 统 计 学 生 总 数 *。 

10 个 =0 

20 INPUT “下 一 个 班级 的 学 生 数 :5 S 

30 工 = 工 +9 

40 PRINT. 7 学 生 数 = 夕 了 T 

5) GOTO 20 

60 END 

这 个 程序 必须 在 打 入 PR#3 命令 之 后 输入 并 执行 。 


级 


一 、 条 件 转向 语句 (IF THEN 语句 ) 


在 有 两 个 分 支 的 程序 中 条 件 转向 语句 可 导 现 分 支 转移 的 控制 功能 。 

语句 格式 ; 

IF 逻辑 表达 式 ( 或 比较 式 )THEN 语句 标号 

IF 逻辑 表达 式 (或 比较 式 )GOTO 清 名 标号 

执行 这 个 语句 ， 先 计算 逻辑 表达 式 的 值 ， 若 值 为 真 ， 则 控制 转向 到 THEN 或 GOTO 后 
面 语句 标号 所 指 的 语句 去 执行 ， 若 为 假 ， 继 续 顺 次 执行 证 一 个 语句 。 如 图 3-4-1 所 示 。 


不 满足 


1. 关系 运算 符 及 比较 式 
APPLE SOFT.BASIC 中 稚 用 关系 运算 符 如 下 ; 
关系 运算 符 含义 含义 相当 的 算术 符号 


条 件 满足 否 ? 


THEN (或 GOTO ) 
后 面 标号 所 指 的 语句 


图 5-4-1 


= 等 于 = 
< 小 于 << 
> 大 于 > 
< = 小 于 或 等 于 < 
> = 大 于 或 等 于 这 
< 不 等 于 坟 


比较 式 是 用 关系 运算 符 把 两 个 表达 式 或 两 个 字符 串 连 接 起 来 的 式 子 。 
格式 ， 

算术 表达 式 ”关系 运算 符 ”算术 表达 式 

字符 串 关系 运算 符 ”字符 串 
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比较 式 的 运算 次 序 是 按 自 左 至 右 且 算术 运算 符 优 于 关系 远 算 符 的 原则 进行 的 ， 比 较 节 尘 
入 是 一 个 逻辑 值 ， 即 真 与 假 。 例 如 


比较 式 食 意 

B> 之 =5 当 B>5 时 比较 式 为 真 ， 否 则 为 假 

<<>>Y 当 Xs<sY 时 比较 式 为 真 ， 否 则 为 假 

T<BA2 当 工 <B: 时 比较 式 为 真 ， 否 则 为 假 

A+BeC> = 了 -下 当 A+BCz>=D- 巨 时 比较 式 为 真 ， 否 则 为 假 

A$<<>B$ 当 两 个 字符 串 A$ 和 B$ 不 相等 时 比较 式 为 真 ， 否 则 为 假 
Ap$= “大 学 当 字 符 串 A$ 为 汉字 字符 串 “ 大 学 ?时 ， 比 较 式 为 真 ， 否 则 为 假 


例 2 铁路 托运 行李 规定 用 每 张 客票 托运 行李 不 超过 50 公斤 按 运 价 计 算 ， 设 每 公斤 收 
费 0.15 元 ， 超 过 部 分 每 公斤 按 运 价 的 2 倍 计算 。 试 设计 一 个 程序 ， 输 入 行李 重量 、 计 算 托 运 
刘 芝 显示。 

运费 计算 公式 为 ; 
_ 人 (Z 雪 50) 

50x0.15+(Z- 50)x0.30 (Z>50) 

10 INPUT “重量 ， 2 

20 JF Z>50THEN 50 

30 H=0.15*Z 

40 GOTO 60 

50 JI=50*0.15+(Z -50)*0.30 

60 PRINT “运费 =7;Hy 7 元 / 

70 END 

运 常 ， 为 便于 编写 分 支 问题 的 程序 ， 常 先 画 出 分 支 程序 的 流程 图 。 

饮 3 有 奖 储 车 的 号 码 是 一 个 六 位 整数 , 最 低 两 位 数字 为 23 的 奖券 是 本 次 开奖 的 中 奖 者 ， 
禾 瑟 一 个 程序 ， 输 入 各 奖券 号 码 及 姓名 ， 显 示 各 中 奖 者 的 号 码 、 名 字 ， 并 统计 中 奖 人 数 。 假 
去 祥和 葵 入 一 个 负 的 号 码 作 为 输入 结束 标志 。 流 程 图 如 图 3-4-2。 


输入 号 码 及 姓名 


“打印 中 奖 总 人 数 | 


dr 35 ae 


程序 如 下 ， 

10 了 PRINT “号 码 儿 Zou 姓名 7 

20 READN，Mf$ 

30 IJFN<0THEN 90 

40 T=N-INTCN/100)m400 

50 IFT<>23 THEN 20 

60 [=[I+1l 

70 PRINT Ni M$ 

80 GOTO 20 

90 了 PRINT “中奖 总 人 数 =2 

100 END 

110 DATA 327121，7 李 明 /，256715,“ 王 平 / 

120 DATA 157625，“ 王 林 /, 143223，7 张 红 ? 

130 DATA 456723，7 陈 力 *，216726，?7 林 青 / 

140 DATA 123758，7 王 琴 /，256723，7 张 静 / 

150 DATA 一 1， 7 7 

程序 中 以 变量 N 存放 奖券 号 码 , 字 符 串 变量 M$ 存放 奖券 持 有 者 的 姓名 。 

语句 40 可 截 出 奖券 号 码 的 最 低 两 位 。 

例 ，N = 327121 
则 , T=N-INT(N/100)s100= 327121-INT(327121/100)s100 

=327121 - INT(3271.21)*100= 327121-- 3271*100= 327121-- 327100=21 

由 于 执行 语句 20， 读 入 N 及 M$， 所 以 语句 150 必 须 以 -~- 工 及 空格 作为 判 终 的 输入 数据 ， 
-1 工 哄 给 N， 空 格 赋 给 M$。 

奖券 号 码 是 六 位 整数 ， 占 三 个 汉字 位 置 。 语 名 10 中 号 码 与 姓名 之 间 用 6 个 空格 分 开 ， 接 
下 显示 的 表格 中 ， 号 码 与 姓名 之 间 空 两 个 汉字 位 置 。 即 


号 码 姓名 
143223 张 红 
456723  ” 陈 力 
256723  ” 张 静 
.中奖 总 人 数 =3 


2. 逻辑 运算 符 又 逻辑 表达 去 
若干 比较 式 以 逻辑 运算 符 连 接 起 来 组 成 多 辑 表达 式 ， 其 结果 是 个 逻辑 值 。APPLE 
SOFT BASIC 有 如 下 三 个 逻辑 运算 符 ; 
逮 辑 运算 符 含义 


NOT 非 
AND 与 
OR 或 


(1) NOT 非 运 算 ， 例 如 : 
NOT A 它 表 示 若 A 为 真 ， 则 结果 为 假 ， 反 之 亦 然 
(2) AND 与 和 运算， 例如， 
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AANDB 它 表 示 A,.B 同时 为 真 时 ， 其 结果 为 志 ， 否 则 为 假 
(3) OR 或 运算 ， 例 如 ， 

AORB 它 表 示 A 为 真 或 B 为 真 时 ， 其 结果 为 真 ， 否 则 为 假 
其 中 A.B 均 为 比较 式 ， 逻 辑 运算 符 的 优先 次 序 是 ， NOT，AND，OR， 逻 辑 表达 式 的 

二 算 次 序 是 先 括号 内 ， 后 括号 外 ， 并 按 运算 符 的 优先 次 序 从 左 至 右 进行。 

逻辑 表达 式 常 用 于 描述 复合 条 件 。 
例如 ， 
Af$ = 7 大 学 /AND A>40 
表示 A$ 中 存放 的 是 汉字 字符 串 “ 大 学 ?上 且 A>40 时 ， 其 结果 为 真 。 
A> =900ORA<=60 
表示 A>90 或 A 和 60 时 ， 结 果 为 真 。 
A<97 AND A 一 >32 OR A>121 的 运算 次 序 是 ， 。 
4A<97 AND A<<>32 OR A>1l21 


山 
| 


凶 ) 

表示 当 A 小 于 97 而 不 等 于 32 或 者 A 大 于 121 时 ， 嬉 果 为 真 。 

例 4 设 某 班 有 5 个 学 生 ， 要 求 用 READ-DATA 语句 读 入 学 号 及 数学 、 物 理 、 英 语 成 
绩 并 输出 满足 下 列 条 件 的 学 生 号 码 及 各 门 考试 成 绩 ，、 设 学 号 是 4 位 整数 

(1) 三 门 功课 都 在 80 分 以 上 。 

(2) . 任 一 门 功课 在 95 分 以 上 。 

10 PRINT “学 号 /3 “Yi 大 语 77 数学 /3 “7 “物理 7 

20 READ A，B，C，D 

25 .IJF A<0THEN 80 

30 IF.B> =80AND.C> =80ANDD>=80THEN 60 

40 IFB>=950O0RC>=950O0RD>=95THEN 60 

50 GOTO 20 

60 PRINT Ai Bi COD 

70 GOTO 20 

80 END 

90 DATA 1232，68，75，82 

100.DATA 1234，85，87，92 

110 DATA 1236，65，98，72 

120 DATA 1238，78，67，93 

130 DATA 1240，81，92，97 

140 DATA -1，-1，-1,=-1 

语句 20 一 次 读 入 四 个 变量 的 值 , 语 名 140 的 四 个 -~ 1 用 来 作为 输入 数据 结束 标志 。 

由 于 使 用 C-PLUS IT-A 汉 下 时 ， 中 文 BASIC 中 不 能 使 用 TAB 功能 ， 要 在 屏幕 上 造 玫 
格 ， 这 里 采用 语句 10 及 语句 60 所 示 的 方法 ， 用 空格 补 位 使 各 栏 对 齐 。 在 本 章 第 七 节 中 将 令 
述 中 文 BAsSIC 中 使 游标 横 线 定位 的 语句 ， 使 用 这 种 语句 ， 可 以 很 方便 的 在 屏幕 上 造 表格 ， 
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如 果 使 用 超级 汉 卡 ， 详 见 第 六 章 叙述 。 
3. 字符 串 及 汉字 字符 串 的 比较 

两 个 字符 串 相 比较 是 将 它们 的 字符 从 左 开 始 逐 个 进行 比较 ,直到 出 现 不 相同 的 字符 。 比 较 
这 两 个 不 相等 字符 的 ASCI 码 ， 则 可 确定 字符 串 的 大 小 。 若 两 者 含有 相等 的 字符 数 ， 而 且 
字符 顺序 完全 相同 则 两 者 相等 。- 

例如 2ZTHATZ>ZTHANK/ 
这 是 因为 前 者 第 四 个 字符 “T? 的 ASC HE 值 大 于 后 者 “N? 的 的 ASCI 值 。 

又 如 7BOOKS>> BOOKY7 
因为 BOOK 后 面 是 空格 ， 字 符 “S“ 的 ASCI 值 大 于 空格 的 ASCT 值 。 

例 5 用 READ-DATA 语句 读 入 一 批 国 家 .名 称 (用 英文 表示 )， 编 制 一 个 程序 显示 按 
英文 字母 顺序 排 在 最 前 面 的 国家 名 称 。 

5 TI=0 

10 READ Ag 

20 IFJTI=5THEN 70 

30 READ By 

40 JIJF A$<=B$ THEN 60 

50 A$=Bi 

60 TI=T+1l:GOTO 20 

70 PRINT Af$ 

80 DATA ZJAPAN7，7ZENGLAND7Z，2ZFRANCEY 

90 DATAZCHINA7，2GERMANY7Y7，2ZINDIAY7 

100 END 

在 汉字 系统 中 ， 汉 字 字 符 串 的 比较 是 把 两 个 汉字 字符 串 中 各 个 汉字 的 编码 中 文字 母 从 左 
至 右 逐 个 比较 ， 直 到 有 不 相等 的 ASC 革 值 出 现 ， 其 中 ASCI 值 较 小 者 则 为 小 的 字符 串 。 

例如 :用 以 下 的 程序 比较 汉字 字符 串 “ 高 中 ?与 “初中 ”的 大 小 。 

10 A$= “高 中 :B$= “初中 

20 JIF A$>B$ THEN PRINT A$:END 

30 PRINT B$:END 

RUN 

初中 

因为 “高 中 ”的 编码 为 “YRBR” 及 “L?, “初中 ”的 编码 为 “YSH 及 “1.?， 当 比较 到 第 二 个 
中 文字 母 时 ,“S?” 所 代表 的 中 文字 母 “ 尸 ? 的 ASCE 值 比 “R> 所 代表 的 中 文字 母 “ 口 ?的 ASCI 
值 大 ， 所 以 字符 串 “ 初 中 ”大 于 “高 中 ”。 

两 个 汉字 字符 串 ， 只 有 在 它们 含有 相等 的 中 文字 母 数 ， 而 且 中 文字 母 顺 序 相 同 ， 才 是 相 
等 的 。 否 则 不 等 。 ; 

例 6 试 在 教师 情况 表 中 ， 根 据 文化 程度 查询 并 显示 其 结果 ,教师 情况 表 由 .READ- 
DATA 语句 输入 。 

10 _ INPUT 文化 程度 ,23;U$ 

20 READ A$，B$，C，D4 

30 IF A$= THEN END 
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40 IF U$<>D4 THEN 20 

50 PRINT A$i7D75B$37 DC3235D 有 $ 

60 GOTO 20 

70 DATA “ 王 林 ”，7 男 /，46，2 大 学 / 

80 DATA “ 李 红 ”， “ 女 7， 25， “中 专 7 

90 DATA “ 陈 东 ^， “ 男 /7， 32， 大专 7 

100 DATA Z“ 张 英 /， “ 女 7， 36， “大 学 ^ 

110 DATA /7 ， /7 0， /7 

120 END 

程序 中 以 空 串 及 0 作为 教师 情况 表 的 结束 部 分 。 

如 果 要 查询 的 对 象 年 龄 大 于 45 岁 且 是 大 学 毕业 。 程 序 如 下 ， 

10 V=45:U$=“ 大 学 ?” - 
20 READ A$，B$4，C，D4 

30 IF A$=72 7THEN END 

40 IF C>VANDD$=U$THEN 60 

50 GOTO 20 

60 PRINT A$37 osB$7U723 CD$:GOTO 20 
70 


120 
语句 70 一 120 与 上 例 相 同 。 


三 、 选 择 转向 语 名 (ON G0T0 语 句 ) 


这 是 一 种 多 路 分 支 的 转向 语句 。 它 根据 表达 式 的 值 转移 到 GOTO 后 面相 应 的 标号 所 指 . 
出 的 语句 继续 执行 。 

格式 ，ON 表达 式 GOTO 标号 1， 标 号 2，……. ， 标 号 开 

表达 式 的 数值 范围 是 0 一 255， 执 行 这 个 语句 时 先 对 表达 式 的 值 取 整 ， 若 所 得 的 整数 为 
I， 则 转 去 执行 GOTO 后 标号 工 的 语句 。 

例 7 统计 一 个 班级 学 生成 线 。 学 生 总 人 数 及 每 人 的 成 绩 以 INPUT 语句 输入 。 要 求 统 
计 90 一 100 分 、80 一 89 分 、70~79 分 、60 一 69 分 及 60 分 以 下 的 学 生 各 有 多 少 人 。 

下 面 程序 中 以 S 表示 学 生成 绩 ， 利 用 INT(S/10) + 1L 的 函数 值 把 分 数 分 段 ，A(I) 记 录 
各 类 得 分 的 人 数 。 

10 FOR I=1TO:5 

20 A(T) =0:READ P$(I) 

30 NEXT 

40 INPUT “22 生 总 数 ， 忆  N 

45 PRINT 7 成 绩 ? 

50 FOR I=1TON 

60 INPUT S 


全 . 39 @ 


z0 ON INT(S/10) +1 GOTO 80，80，80，80，80，80，90，100，110，120，120 
80 A(1)=A(1)+1:GOTO 130 

90 A(2)=A(2)-1:GOTO 130 

100 A(3)=A(3)+1:GOTO 130 

110 A(4)=A(4)+1:COFO 130 

120 A(5)=A(5)+1 

130 NEXT 

140 FOR I=1TO5 

150 PRINT P$(ID37UowsA(I)37 人 7 

160 NEXT 

170 DATA ?760 分 以 下 4,760 一 69 分 *“，770 一 79 分 "“，780 一 89 分 "，790 一 100 分 / 
180 END 


第 五 节 ”循环 语句 (FOR NEXT) 


程序 设计 中 常 遇 到 一 些 要 按 一 定 规则 重复 执行 某 种 操作 的 问题 。 使 用 FOR NEXT 语 名 
可 以 使 程序 简洁 、 明 腔 。 


一 、 定 义 数 组 维 数 语句 DIM 


APPLE SOFT 系统 初始 定义 数值 、 字 符 串 数组 下 标 为 0 一 10， 车 数组 下 标 超 过 1 必须 
以 DIM 语句 定义 数组 大 小 ， 计 算 机 为 数组 留 出 足够 的 空间 。 

格式 ，DIM 一 维 数组 名 (下 标 上 界 ) 

DIM 二 维 数组 名 ( 行 标 上 界 ， 列 标 上 界 ) 

这 是 一 个 说 明 性 语句 ， 一 般 出 现 于 程序 的 首部 ， 或 者 出 现在 引用 相应 数组 的 语句 之 前 。 
APPLE SOFT 中 数组 不 允许 重复 定义 ， 即 使 是 系统 初始 定义 的 数组 也 不 能 重新 定义 。 

整数 数组 中 每 个 元 素 占 两 个 字 节 ， 实 数 数 组 每 个 元 素 占 5 个 字 节 ， 字 符 串 数组 每 个 元 素 
占 3+N 个 字 节 ， 其 中 和 为 该 元 素 的 字符 串 长 度 。 数 组 不 宜 定义 过 大 ， 以 免 超 出 内 存 中 用 户 
可 使 用 的 空间 。 

程序 中 数组 元 素 的 下 标 不 能 超过 其 定义 的 下 标 范 围 ， 否 则 机 器 报错 “BADSUB CRIPT 
ERROR”。 程 序 中 止 执行 


二 、 循 环 语句 结构 以 及 执行 过 程 
循环 语句 的 格式 : 
FEOR X=ATOBo9TEPC 
EXT 入 
又 循环 控制 变量 ， 可 用 一 个 简单 变量 来 表示 
A 循环 变量 初 值 ; 
B 循环 变量 终 值 : 
C 循环 变量 的 增 量 ( 或 步 长 )。 
ABC 可 以 是 数值 、 变 景 或 表达 式 。 步 长 可 以 是 正 数 或 负数 。 如 步 长 为 1，STEP 可 省 
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路 . FOR 与 NEXT 语句 必须 成 对 出 现 ， 币 且 两 个 语句 中 的 循环 变量 必须 一 致 。FOR 与 
NEXT 语句 之 间 的 程序 称 为 循环 体 ， 它 根据 循环 变量 的 变化 情况 被 循环 语句 重复 执行 若干 
次 。 

循环 语句 执行 过 程 如 图 3-5-1。 


初 值 A 送 到 X 


执行 循环 体 


X 加 上 步 长 C 二: 
送 给 闪 ， 


图 5-5-1 

俩 1 输入 一 个 表格 的 各 栏 标题 。 

10 CALL 49941 

20 INPUT “总 栏 数 ，. N:DIM CS$CN) 

30 FORI=1 TON 

40 PRINT 7 第 2 TI;7 栏 标题 ，2 

50 _ INPUT 23C$(GID) 

60 NEXT1I 

其 中 循环 变量 为 1[， 初 值 是 1， 终 值 是 六 ， 步 长 是 1， 所 以 语句 40, 50 被 执行 六 次 , 输入 共 
N\ 并 的 栏 标 题 。 语 句 10 中 的 CALL49941 清 除 整 个 屏幕 画面 ， 见 本 章 第 八 节 的 叙述 。 


三 、 多 重 循 环 


实 蒜 问题 中 党 出现 双重 或 更 多 重 循环 。 即 循环 语句 可 以 嵌 套 ， APPLE SOEFT 多 许 最 
外 所 示 的 双重 循环 中 ， 对 I 的 循环 语句 称 为 处 循环， 对 丁 的 循环 语句 称 为 内 
区 重生 天 中 ， 只 多 省 内 基 居 自 环 体内 意 到 读 短 环 体外 ， 而 不 允许 从 某 导入 环 体外 转 入 
“2 上 网 中 加 果 要 驮 全 给 入 才 相 各行 的 内 容 逐 行 输入 时 , 提示 当前 输入 的 是 第 几 行 ， 


e 站 1 。 


四 | 
- NEXT II 


并 逐 栏 提示 栏 标题 。 程 序 如 下 : 
60 INPUT "总 行 数 ，0，M 
70 DIM D$(M，N) 
80 FEOR I=1TO M 
90 了 PRINT 7 第 2 了 7 行 7 
100 FORJ=1TON 
110 PRINT C$(J); 
120 INPUT 2“23;D$(I,J) 
130 NEXT 
140 NEXT1I 

“语句 100 一 130 执行 内 循环 ， 提 示 一 行 中 每 栏 的 标题 并 输入 各 栏 标题 ， 语 名 80 一 140 执 行 

外 循环 ， 每 输入 一 行 后 提示 下 一 行 的 行 号 。 并 继续 输入 下 一 行 。 
若 要 在 屏幕 上 显示 上 述 表 格 ， 程 序 如 下 ， 
150 CALL 49941 
160 FOR J=1TON 
170 PRINT C$(J); 2; 
180 NEXT J:PRINT ZX 
190 FOR 1=1TO M 
200FOR J=1TON 
210 PRINT D$(CI，J)s7 2 
220 NEXT J:PRINT 2/ 
230 NEXT 
240 END - 


例 3 已 知 一 个 班级 10 名 学 生 三 门 课程 的 成 线 ， 求 学 生 的 平均 分 数 , 并 按 名 次 顺序 打印 
学 生 的 姓名 和 平均 成 绩 ， 设 这 三 门 课程 是 数学 、 物 理 、 英 语 。 姓 名 存放 于 A$(I)， 平 均 成 绩 
存放 在 直 (I)。 和 程序 如 下 ; 

10 FOR I=1TO 10 

20 INPUT "姓名 ， A$(T) 

30 INPUT “数学 ，2，C 

40 _ INPUT “物理 ， D 

50 INPUT 英语， 忆 

60 FE=C+D+E 

70 (IT) =F/3 

80 NEXT II 


aa 42 ，? 


90 FORI=1TO9 

100 P=L(D) 

120 FOR J=I+1TO 10 

130 IF P>L(J) THEN 200 

140P=L(J) 

150L(J) =L(I) 

160 直 (I) = 了 

170 U$= A$(D) 

180 A$(I) = A$(J) 

190 A$(J) = U$ 

200NEXT 

210 NEXT I 

220 FOR I=1TO .10 

230 PRINT A$(I)323L(CGIT) 

240 NEXT ] 

250 END 

程序 中 语句 90 开始 的 循环 ，I 初始 值 为 1, 先 用 第 一 个 学 生 的 平均 成 绩 L(1) 与 工 (2) 比 ， 
者 L(1) 比 工 (2) 小 ， 则 将 划 (1) 与 工 2) 对 调 ，A$(1) 与 A$(2) 对 调 ， 然 后 用 新 的 工 (1) 与 
L(3)…。，L(10) 比 ， 第 一 次 内 循环 结束 。A$(1) 及 L(1) 品 放 第 一 名 学 生 的 姓名 及 平均 成 绩 ， 
接着 执行 第 二 次 循环 ，I 已 变 为 2， 这 时 执行 的 内 循环 是 把 L(3)~L(10) 与 (2) 比 ， 最 后 第 
二 名 的 成 绩 及 姓名 调 到 工 (2) 及 A$(2) 中 、 如 此 重复 ， 直 到 全 部 学 生 的 姓名 及 平均 成 红 按 名 
次 排 好 。 最 后 ， 显 示 输 出 。 


第 六 节 ”调用 子 程序 语句 


在 一 个 程序 中 ， 有 时 需要 多 次 进行 某 种 处 理 ， 这 就 必须 在 程序 的 不 同 地 方 反复 写 上 同一 
处 理 程序 ， 这 样 不 仅 繁琐 ， 而 且 容 易 出 错 。APPLE SOFT 允许 把 这 段 处 理 程序 作为 一 个 子 
程序 供 程 序 的 各 部 分 调用 ， 并 把 调用 子 程序 的 程序 段 称 为 主 程序 。 


一 、 调 用 子 程序 语句 (GO0YUB) 


调用 子 程序 的 语句 格式 如 下 : 

GOSUB 标号 ”标号 是 子 程序 的 入 口 

在 主 程序 中 用 GOSUB 语句 调用 子 程序 ,在 子 程序 段 中 执行 的 最 后 一 个 语句 是 RETURN 
语句 ， 子 程序 段 中 至 少 要 有 一 个 RETURN 语句。 从 子 程序 返回 主 程 序 时 ， 返 回 到 本 次 转 
子 程序 语句 GOSUB 的 下 一 个 语句 并 继续 执行 ， 如 图 3-6-1 所 示 。 

子 程序 可 以 嵌 套 ， 但 不 多 许 递归 调用 ， 即 不 能 直接 或 间接 调用 子 程序 本 身 。 

若 GOSUB 指出 的 标号 不 存在 ， 机 器 将 报错 。 

例 ， 

10 又 =1 

20 GO9UB 100 
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GOSUB 一 


-下 一 个 语句 < 一 


RETURN 
图 5-6-1 

30 PRINT Y 

40 叉 =5 

50 GOSUB 100 

60 PRINT Y 

70 END 

100 Y=(X+10)e5 

110 RETURN 

程序 中 语句 10 一 70 为 主 程序 ， 语 句 100 一 110 为 子 程序 。 语 句 20 调用 子 程序 ， 把 X= 1 
代入 Y=(X+10)s5， 算 得 Y= 55， 然 后 执行 返回 语句 110， 转 而 执行 语句 30， 显 示 Y。 语 
句 50 再 次 调用 子 程序 ， 算 得 Y=75 后 返回 ， 执 行 语 句 60。 


二 、 多 分 支 调用 子 程序 (ON GOSUB) 


ON GOTO 语句 可 以 实现 APPLE SOFT 程序 中 的 多 路 分 支 ，ON GOSUB 语句 可 实 
岗子 程序 分 支 结构 ， 即 转移 到 子 程序 序列 中 的 一 个 或 某 一 部 分 。 

语句 格式 ， 

ON 表达 式 GOSUB 标号 1， 标 号 2，……. ， 标 号 改 

执行 此 语句 时 ， 先 对 表达 式 的 值 取 整 ， 若 所 得 整数 为 1， 则 调用 GO5UB 后 标号 工 为 起 
始 语句 的 子 程序 。 表 达 式 的 规定 与 ON GOTO 语句 中 相同 。 

一 个 汉字 信息 处 理 系 统 是 直接 面向 用 户 的 ， 它 与 用 户 界 面 必 须 简 明 ， 易 于 操作 。 一 般 可 
采用 由 系统 向 用 户 提示 需要 操作 的 命令 ， 而 用 户 只 需 按 下 由 提示 信息 所 提出 的 数码 即 可 完成 
某 种 选择 ， 有 时 需要 使 用 多 级 命令 提示 完成 一 种 选择 。 

可 以 使 用 ON GOSUB 语句 设计 程序 。 

例 1 一 个 学 生 档 案 管理 系统 ， 要 求 提示 第 一 级 命令 如 下 ; 

0: 出 口 ; 

1: 查询 

2: 报 表 打 印 。 

在 查询 中 要 求 提供 第 二 级 命令 ， 

0: 返 回 ; 

1: 查 学 生 业 务 档案 
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2， 查 学 生 健 康 档 案 。 

在 查 学 生 业 务 档案 -一 项 中 要 求 提供 第 三 级 命令 ， 
0: 返 回 ; 

1， 近 学 号 查 ; 

2， 按 课程 查 

3: 按 成 绩 查 。 

程序 如 下 : 


10 
20 
30 
40 
50 
60 
70 
80 
200 
210 
220 
230 


240 


250 
260 


300 
310 


400 
410 
420 
430 
440 
450 
460 
500 
600 
610 


CALL 49941 
PRINT 7 命令 / 


PRINT 7Z0: 出 口 / 


PRINT 71: 查 询 ":PRINT “2: 打 印 报表 4 
INPUT "选择 "，C 

IFC=0THEN END 

ON C GO9SUB 200，300 

GOTO 10 

CALL 49941 

PRINT 7 命令 Y:PRINT 20: 返 回 ? 
FRINT “1: 查 学 生 业 务 档案 /7 
PRINT “2: 查 学 生 健 康 档 案 ″ 
INPUT “选择 力 C 

IFC=0THEN RETURN 

ON C GOSUB 400，500:GOTO 200 


FRINT“ 打 印 报表 子 程序 
REIURN 


CALL 49941 
PRINT 命令” :PRINT 70: 返 回 / 


PRINT 71: 按 学 号 查 ^/:PRINT “2: 按 课程 查 色 


PTINT “3: 按 成 绩 查 / 

INPUT “选择 汪 C 

IF C=0THEN RETURN 

ON C GOSUB 600，700，800:GOTO 400 
ERINTLT“ 查 学 生 健康 档案 子 程序 " :RETURN 
PRINT 《 按 学 号 查找 子 程序 

RETURN 


700 PRINT “ 按 课程 查找 子 程序 7 


《10 
800 
410 


RETURN 


FRINT“ 按 成 绩 查 找 子 程序 / 
人 上 了 上 TURN 
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其 中 语句 600，700，800 开始 的 查找 程序 也 是 子 程序 ， 这 是 个 多 级 调用 的 例子 ， 例 中 
CALL 49941 语句 参阅 第 八 节 ， 它 的 功能 是 清除 整个 屏幕 显示 。 


第 七 节 “字符 串 函 数 语句 


字符 串 函 数 诸 句 可 以 对 字符 串 进 行 多 种 处 理 。 比 如 求 出 字符 串 的 长 度 、 取 出 字符 串 中 的 
某 一 部 分 字符 ， 把 数值 或 ASC E 码 转换 成 字符 串 以 及 把 字符 串 转换 成 相应 的 数值 或 ASC 了 
码 等 。 由 于 汉字 是 由 中 文字 母 编码 构成 的 ， 每 一 个 中 文字 母 都 对 应 一 个 ASC IE 码 ， 所 以 汉 
字 本 身 可 以 看 作为 由 中 文字 母 构 成 的 字符 串 。 在 汉字 系统 中 ， 字 符 串 函 数 语句 中 字符 的 概念 
是 对 中 文字 母 而 言 的 。 一 个 汉字 可 以 由 1 一 5 个 中 文字 母 构 成 ， 在 汉字 系统 中 使 用 有 关 字符 串 
的 函数 请 句 时 要 特别 注意 这 一 氮 。 


一 、 字 符 串 长 度 函 数 (LEN) 


LEN 函数 给 出 一 个 字符 串 变 量 包括 的 实际 字符 个 数 。 

例如 ， 

10 Q$=7APPLE7 

20 PRINT LEN(CQ$) 

30 了 END 

函数 LEN(Q$) 的 值 是 字符 串 Q$ 所 包含 的 字符 个 数 5。 

当 用 LEN 函数 求 一 个 汉字 的 长 度 时 ， 这 个 长 度 指 的 是 构成 这 个 汉字 的 中 文字 母 个 数 与 
一 个 空格 符 ( 它 组 出 一 个 汉字 ) 个 数 之 和 。 

例如 , “部 门 ?的 “部 ? 字 ， 中 文字 母 编码 为 YRNL， 用 下 面 程序 可 求 得 其 长 度 为 5。 

10 工 L = 革 EN(CZ 部 ) 

20 PRINT LL 

和 UN 

5 

如 果 Q$ 中 存放 一 个 家 庭 地 址 “天 津 路 100/12”,“ 天 津 路 ?的 中 文字 母 编 码 分 别 为 MK， 
ELQ、RMHER， 下 面 程序 可 求 其 长 度 ， 

10 Q = 天 津 路 100/127 

20 直 =LENCQ) 

30 PRINTL 

UN 

19 

其 中 天 津 路 兰 个 字 的 长 度 分 别 为 3.4.6， 后 面 的 数字 及 斜 杠 长 度 之 和 是 6。 

LEN 是 函数 而 不 是 语句 ， 不 能 直接 作为 语句 命令 使 用 。 例 如 输入 

10 LEN(Q$ ) 语 句 是 错误 的 。 

LEN 函数 可 以 出 现在 表达 式 中 ， 因 此 可 以 用 于 赋值 语句 ， 条 件 转向 语言 ， 循 环 语句 , 打 
印 语 句 等 。 

LEN 函数 中 允许 使 用 字符 串 表达 式 ， 例 如 ， 

10 A=EN(C7APPLE7Y) 
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20 B$=721234/ 

30 C$= CHARACTERY 

40 D=A+LEN(B$+C$) 

50 PRINT A:PRINT D 

RUN 

5 

18 
其 中 B$ +C$ 为 字符 串 表 达 式 , 它 把 B$、C$ 串 接 成 一 个 新 的 字符 串 71234CHARACTER7， 其 
长 度 为 13。 


二 、CHR$ 函数 


CHR$ 函数 可 以 将 一 个 ASC 工 码 转换 成 相应 的 字符 。 - 

格式 ， CHR$( 人 参数 值 ) 

参数 值 为 0 一 255。 

例如 ， 

10 A$=CHR$(C48) 

20 B$= CHR$(65) 

30 PRINT A$;B$;CHRS$(49) 

RUN 

0 Al 

其 中 48，65，49 分 别 为 数字 0， 字 母 A 及 数字 1 工 的 ASC IT 码 。 例 如 ; 

10 FOR I=49 TO 57 

20 PRINT CHR$(T; 

30 NEXT I: PRINT 

RUN 

123456789 

在 汉字 系统 中 ， 若 参数 值 是 一 个 中 文字 母 的 ASCE 码 ， 当 使 用 CHRS$ 函数 时 ， 产 生 的 
字符 就 是 这 个 中 文字 母 ， 输 出 到 屏幕 上 时 ， 显 示 这 个 中 文字 母 。 例 如 :. 

10 A$=CHR$(97) 

20 PRINT Af 

30 PRINT2Z 7 

RUN 

日 

97 是 中 文字 母 ^ 日 ?的 ASC IT 码 ， 执 行 这 个 程序 时 ， 显 示 “ 日 ? 字 。 语 名 30 给 出 了 组 出 汉 
字 的 空格 符 。 

用 CHR$ 函数 组 出 一 个 完整 的 汉字 并 显示 ， 可 以 使 用 如 下 程序 。 设 工 为 汉字 的 编码 数 
(不 包括 组 字 的 空格 符 ) 

10 AA$=2? 

20 INPUT L 

30 FORI=1TOL 
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40 _ INPUT A 

50 AAS$=AA$+CHR$CA) 

60 NEXTI 

70 PRINT AA$ 

80 PRINT 2 

90 END 

若 要 组 “ 计 ? 字 (“ 计 ?的 中 文字 母 编码 为 YRI， 相 应 的 ASCE 码 为 121，114，、106)， 程 
序 执行 过 程 如 下 ， 

RUN 

?3 

?121 

?114 

?106 
先 输入 编码 长 度 ， 再 分 别 输 入 每 个 中 文字 母 的 ASCE 的 值 ， 程 序 执行 到 语句 80， 输 出 
“ 计 " 字 。 


三 、ASC 函数 


ASC 函数 是 将 一 个 字符 串 中 第 一 个 字符 转换 成 相应 的 ASCI 码 。 例 如 ， 
10 A=ASC(4567) 

20 B=ASCCCHR$(C48)) 

30 PRINT A:PRINT B 

了 RUN 

52 

48 

其 中 52 是 字符 串 456 中 第 一 个 字符 4 的 ASCIE 码 。 而 48 则 是 字符 0 的 ASCI 和 码 ， 又 如 ， 
10 FOR I=ASC(C217) TO ASC(C7Y92 ) 

20 PRINT CHR$CID); 

30 NEXT I:PRINT 

RUN 

123456789 

ASC 函数 也 可 以 处 理 汉 字 字 符 串 。 

例如 ， 打 印 中 文字 母 ^ 朋 ?及 相应 的 A95CE 码 和 英文 形 码 程序 如 下 * 

10 A=ASC(CZ 日 7) 

20 PRINT “AZ uiZ37 日 /5 ZX A 


RUN 

A 日 97 

例 1 打印 一 张 包含 24 个 中 文字 母 及 它们 相应 的 ASCI 码 、 英 文 形 码 :的 表格 ， 程序 
如 下 ;: v 


5 M=24:DIM UU$CM):DIM JOM) 
加 48 9 


10 FORI=1TOM 

20 INPUT UU$(D) 

30 J(I)=ASCCUU$(GI))- 32 

40 NEXTI1 

50 POKE 1403，1 

60 FOR I=1TO M 

70 PRINT CHR$(J(GD)32 2 UU$CGD3225 ASCCUUSCD) 

80 NEXT1 

90 POKE 1403 ，0 

100 END 

语句 10~40 的 循环 语句 要 求 依 次 输入 中 文字 母 “日 ?一 “下 >”， 中 文字 母 与 其 相应 的 英文 
形 租 的 ASCI 码 相差 32， 例 如 “日 ?的 ASC 开 码 为 97, 英文 形 码 A 的 ASC IT 码 为 65, 语句 30 
求 出 和 中 文字 母 相应 的 英文 形 码 的 A3CE 码 。 语 名 50 一 90 打印 这 张 表 格 ， 它 必须 在 打印 机 
接 通 之 后 打出 ， 语 句 50 接 通 打 印 机 ， 语 句 90 关闭 打印 机 ， 这 两 个 语句 将 在 第 八 节令 述 。 


四 、LEFT$ 函数 


LEFT$ 函数 截取 字符 串 中 最 左边 的 部 分 字符 。 

格式 ，LEFET$CA$，N ) 

Aj$: 任 一 字符 串 ; 

N ;字符 个 数 。 

(例如 ， 

10 HOME 

20 A$=7ABCDEE7 

30 FORN=1TOLEN(A$):PRINT LEFT$CA$，N):NEXT N 

RUN 

人 

AB 

ABC 

ABCD 

ABCDE 

ABSDERF 

我 们 可 以 从 某 个 字符 串 中 取出 最 左边 部 分 字符 再 和 其 它 字符 串 连接 。 例 如 ， 

TI0 A$=LEFT$ABCD7，2) 

20 B$=A$+vCDEF^ 

30 PRINT A$;Bj 

RUN 

ABABCDEE 

要 从 一 个 包含 汉字 的 字符 串 中 取出 一 个 汉字 ， 必 须 把 这 个 汉字 编码 的 中 文字 母 连 同 组 字 
的 空格 符 一 起 截取 出 来 。 

例如 ， 若 A$ 中 存放 “部 门 ?两 个 汉字 ， 它 们 的 中 文字 母 编码 分 别 为 YRNL 和 AN, 鹤 取 中 
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谈 字 母 ^ 下 ?( 其 英文 形 码 为 半 ) 的 程序 如 下 : 


和 
久 


10 A$=7 部 门 7 

20 H$=LEFTS(CA$，1) +7 7 

30 PRINT H$ 

RUN 

若 要 把 “部 ? 字 截 取出 来 并 显示 ， 程 序 如 下 * 
10 A$=7 部 门 ? 

20 H$=LEFT$CA$，5) 

30 PRINT HS 

RUN 

部 


RIGHTS$ 函数 


格式 ，RIGHT$CAS$，N) 

RIGHT$ 函数 可 以 把 A$ 中 最 右边 的 N 个 字符 截取 出 来 。 
例如 

10 A$=2ABCDEF^ 

20 PRINT RIGHTS$CA$，2) 

RUN 

下 

又 如 ， 

10，A$= 271234567 

20 B=7Z67892 

30 C$=LEFETSCA$，LENCA$)-1)+RIGHTSCBS$，4) 
40 PRINT C$ 

RUN 

123456789 

RIGHT$ 函数 可 以 处 理 含有 汉字 的 字符 串 。 

例如 ，Ag$ 中 存放 “部 门 ? 二 个 汉字 , 欲 截取 中 文字 母 “ 弓 (英文 形 码 为 N) 使 用 如 下 程序 ， 
10 Aj 一 部门/ 

20 了 PRINT RIGHT4SCA$，2) 

RUN 

弓 

而 若 要 截取 “ 门 ? 字 并 显示 ， 则 程序 如 下 ， 

10 Af 一 “部 门 / 

20 了 PRINT RIGHTS$CA$，3) 

RUN 

门 

在 使 用 C-PLUS IT-A 汉 卡 时 ， 汉 字 系 统 下 的 LEFT$ 用 缩写 世 显示 、 打 印 。END 以 忆 


50 ， 


显示 、 打 印 。 
六 、MID$ 函 烙 

格式 ，MID$CA$，M，N) 

Aj$: 任 一 字符 串 ; 

M; 要 取出 的 字符 串 的 起 始 位 置 

N :要 取出 的 字符 个 数 。 

字符 的 位 置 从 最 左边 算 起 ， 最 左边 字符 的 位 置 码 为 1。 

如 果 N 不 出 现 ， 则 从 M 廊 指明 的 位 置 开 始 ， 取 出 后 面 所 有 的 字符 。 

例如 ， 

10 PRINT MID$CABCDE”，3，1) 

20 PRINT MID$C7ABCDE7，2，2) - 

30 PRINT MIDS$CZABCDE7，4) 

RUN 

C 

BC 

DE 

MID$ 函数 也 可 以 处 理 包含 汉字 的 字符 串 。 

例如 ， 要 从 “部 门 ?二 个 汉字 中 截取 中 文字 母 “ 口 ? 并 显示 它 的 ASC I 工 码 ,使 用 如 下 程序 ， 

10 A$=7 部 门 / 

20 玫 =ASCCMIDS$CA$，2，1)) 

30 PRINT 民 

RUN 

114 

114 是 中 文字 母 “m ?的 ASCTE 码 。 

在 C-PLUS IT-A 汉 卡 中 ， 用 LEN 函数 求 一 个 汉字 字符 串 包 含 的 实际 字符 个 数 时 ， 求 
得 的 值 是 组 成 各 个 汉字 的 中 文字 母 个 数 和 组 出 各 个 汉字 的 空格 键 个 数 之 和 ， 而 不 是 这 个 字符 
串 所 包含 的 汉字 个 数 。 但 在 汉字 字符 串 打印 输出 时 ， 常 常 需要 求 一 个 汉字 字符 串 的 长 记 ， 即 
它 由 儿 个 汉字 组 成 。 若 一 个 字符 串 由 汉字 、 字 母 或 数字 组 成 ,需要 求 出 这 个 字符 串 由 儿 个 汉字 
及 几 个 字母 、 数 字 组 成 。 由 于 打印 时 ， 一 个 汉字 占据 两 个 英文 字 打 印 位 置 ， 所 以 一 个 包含 汉 
字 的 字符 串 长 度 指 的 是 这 个 字符 串 打印 输出 时 占据 英文 字 打印 位 置 的 个 数 。 下 面 给 出 一 个 求 
包含 汉字 的 字符 串 长 度 ， 并 把 它 存放 在 变量 LH 中 。 汉 字 字 符 串 应 预先 存放 在 字符 串 变 量 
HH$ 中 ， 中 文字 母 的 ASCE 码 在 97 一 121 之 间 ， 空 格 符 的 ASC 夺 码 为 32。 

程序 执行 时 ， 按 序 检查 字符 串 中 的 每 一 个 字符 ， 如 果 不 是 中 文字 母 ， 则 工 世 加 1 如 果 
是 中 文字 母 ， 继 续 往 下 查 ， 直 到 查 到 一 个 空格 符 ， 表 示 查 到 一 个 汉字 ，LH 加 2。 

110 LH=0:JJ=0 

120 JJ=LEN(CHHd) 

130 IF J=0THEN LH=0:RETURN 

140 FOR II=17TO JJ 

150 BB$ = MID$CHH$，II，1) 


ss 5 。 


i60 KK = ASC(BB$) 

170 IF KK<97 AND KK 一 >32 OR KK> 121 THEN LH=LH+I:GOTO 190 
180 IF KK = 32 THEN LH=LH+2 

190 NEXT II 

200 RETURN 

在 主 程序 中 输入 一 个 包含 汉字 的 字符 串 ， 然 后 转 到 这 个 子 程序 中 去 执行 。 如 : 
10 _ INPUT HH$ 

20 GOSUB 110 

30 PRINT LH 

40 END 

RUN 

? 部 门 

4 


七 、STR$ 函数 


5TR$ 函数 把 一 个 数值 转换 成 字符 串 。 例 如 ， 

10 A=1234:B= 5678 

20 A$= STR$(A):B$= STRS(B) 

30 PRINT A$;B$ 

RUN 

12345678 

语句 20 把 数值 A 和 B 转换 成 字符 种。 所 以 A$ = "1234"，B$ = ”45672。 

汉字 系统 中 人 允许 使 用 中 文 作为 文件 名 ， 如 果 文 件 是 按 部 门 组 织 ， 要 求 根据 输入 的 部 门 纺 
叶 给 各 部 门 的 文件 自动 编码 ， 可 以 使 用 如 下 程序 ， 

10 INPUT “文件 各， FE$ 

20 INPUT "部 门 号 ，2 式 

30 F$=F$+STRS(X) 

40 PRINTF$4 

50 END 

如 果 输 入 文件 名 为 “部 门 >， 输 入 第 一 个 部 门 的 部 门 编号 1， 则 对 应 第 一 个 部 门 的 文件 ， 
其 文件 名 为 “部 门 1。 

例 2 ， 输 入 一 串 汉 字 ， 把 其 编码 值 作 为 一 个 字符 串 打 印 (每 个 中 文字 母 的 ASCI 码 值 都 
取 3 位 ) 程 序 及 运行 实例 如 下 ， 

10 A$=27 

20 _ INPUT UU$ 

30 LL=LENCUU$) 

40 上 OR TI=1TOLL 

50 C$=MID$CUUS$，I，1) 

60 J=AScCCC$) 

70 ljJ=32ORJ=97ORJ=98ORJ=99 THEN 130 


80 Ak$=A$+STR4(H 

90 NEXT IT 

100 POKE 1403，1:PRINT Aj$ 

110 POKE 1403，0 

120 END 

130 B$=“0”:B$= B$+STR$(J) 

140 A$= A$+B$:GOTO 90 

]RUN 

? 同济 大 学 

098109114032101121120032107032104098110100032 

语句 20 把 “同济 大 学 “四 个 字 输 入 到 UU$ 中 ， 语 句 130，140 把 每 个 中 文字 母 所 对 应 的 
ASCE 码 值 变 为 3 位 数 ， 语 句 80 把 多 个 中 文字 母 的 ASCE 码 串 成 一 个 字 符 串 ， 语 句 100 打 
印 这 个 字符 串 。 


八 、VAL 函数 


VAL 函数 把 一 个 字符 串 转变 为 数值 。 

格式 ， VAL: “字符 串 ”) 

VAL 能 转换 0~~9，+，-，“'. 等 字符 ， 但 组 合 它们 时 ,必须 为 合法 的 数值 形式 。 例 如 ， 

10 A=VALGZ+1237) 

20 PRINT A 

RUN 

123 

VAL 函数 有 下 列 几 个 规定 : 

(1) 字符 串 前 面 的 空白 不 计 # 

(2) 非 数 值 字符 不 计 ; 

(3) 第 一 个 字符 非 空白 ， 非 数值 时 ， 其 值 为 0。 

例如 ， 

10 A=VAL(Z001237) 

20 B=VALC7ZR4567 ) 

30 C=VAL(7456A7) 

40 D=VALCZP7) 

50 了 =VALZ+7897) 

60 PRINT ABC5gD5E 

RUN 

12304560789 

例 3 设 考 生 外 语 成 绩 一 栏 是 由 一 个 汉字 和 三 个 数字 组 成 ， 一 个 汉字 表示 语种 ， 三 个 数 
字 表 示 分 数 ， 如 “ 英 080?， 表 示 该 考生 英语 成 绩 为 80 分 。 

设 考生 考试 的 语种 输入 字符 串 变 量 A1$， 分 数 输入 字符 串 变量 A2$， 语 种 和 分 数 串 接 
起 来 的 字符 串 保 存在 人 中， 输入 程序 如 下 ， 

10 _ INPUT “考生 总 数 ，2，M 


q D3 


20 DIM AS(M):DiM Al1$(M):DIM A2$(M) 
30 FOR I=1TOM ， 
40 _ INPUT 语种 ，2 Al1$(I) 
50 INPUT 分数, A2$(T) 
60 JIFLEN(A2$(ITD))=1-THEN A2$(ITD) = "000+A2$(I):GOTO 80 
70 IF LEN(A2$(TD))=2THEN A2$(I) =202+A2$(I) 
80 A$(ITD) =Al$(GD +A2$(I) 
90 NEXT 1 
其 中 语句 60，70 把 输入 的 分 数 拼 成 三 位 。 如 果 要 统计 某 一 语种 ， 分 数 在 某 一 分 数 线 以 
上 的 人 数 ， 程 序 如 下 : 
-100. INPUT 语种， 与 By$ 
110 INPUT ?7 分数 下 限 ， 工 
120 FOR I=1TO M 
130 C$= 7":LL=LEN(CAS(CI) 
140 FOR II=1TOLL-3 
150 C$= C$+MID$(A$(ID)，II，1):NEXT II 
160 JIF C$= B$ AND VALCRIGHT$CAS$(1)，3))>> =L _ THEN J=J+1i 
170 NEXT1I 
180 上 上 RINT B4$ LI 7 分 以 上 共计 2 JI 7 人 7 
190 END 
由 于 分 数 固 定 为 3 位 数 ， 语 句 140~~150 取出 代表 语种 的 一 个 汉字 ， 语 句 160 中 截取 分 数 
并 与 分 数 下 限 比较 。 
若 分 数 不 再 规定 为 3 位 数 ， 例 如 “ 英 5? 表 示 英 语 成 绩 是 5 分 ，“ 日 80? 表 示 有 日语 成 绩 为 80 
分 ,“ 英 100" 表 示 英 语 成 绩 为 100 分 ， 则 程序 设计 如 下 : 
10 INPUT “考生 总 数 ，“，M 
20 DIM A$CM) 
30 FORI=1TOM 
40 INPUT 语种, 分数， AS$(I) 
50 NEXTI . 
100 INPUT 语种， B$ 
110 INPUT ?分数 下 限 ，"， 工 
120 FOR I=1TO M 
130 C$=%:LH=0:LL=LEN(AS$CGI)) 
140 FOR II=1TO LL 
150 改 = ASC(MIDS$CA4$(GD)，II，1)) 
160 C$= C$+MID$CA$(GD，II，1):LH=LH+1 
170 IF 开 =32THEN 
180 NEXT II 
190 IF VALCRIGHT$CA$GD)，LL-LH))> =L AND C$= B$ THEN J=J+1 
200 NEXT TI 


e。 94 。 


310 PRINT BSiL52 分 届 上 共计 广 于 7 人 4 
220 END 


第 八 节 ”中文 APPLE SOFT 的 一 些 特殊 功能 


在 C-PLUST-A 汉 卡 系统 中 ; 中 文 APPLE SOEFT 提供 下 述 一 些 特殊 功能 的 POKE 
及 CALL 语句 ， 用 于 控制 光标 栅 线 的 移动 、 屏 幕 编辑 及 控制 打印 机 的 输出 格式 等 。 POK 王 
及 CALL 语句 功能 详 见 第 九 节 及 第 十 一 节 。 


一 、 移 动 光标 横 线 的 POKE 语句 


汉字 系统 中 用 两 个 POKE 语句 取代 英文 语言 中 移动 光标 横 线 位 置 的 HTAB、VTAB 功 
能 ， 光 标 横 线 移动 是 以 一 个 英文 字母 为 基本 单位 ( 即 半 个 中 文字 )。HTAB、VTAB 语句 见 第 
十 节 。 

1。 了 POK 上 KE 214， 理 

这 个 语句 相当 于 英文 BASIC 中 的 HTAB 功能 ，H 值 是 光标 横 线 要 移动 的 水 平 座 标 值 。 
屏幕 最 左面 的 座 标 值 定 义 为 0， 最 右面 定义 为 33。 

2。 了 PO 人 KE 215，V 

这 个 语句 相当 于 英文 BASIC 中 的 VTAB 功能 、V 值 是 光标 横 线 要 移动 的 垂直 座 标 值 。 
屏幕 最 上 方 的 座 标 值 定义 为 0， 最 下 方 定义 为 9， 见 图 3-8-1 所 示 。 

如 图 3-8-1 所 示 ， 光 标 横 线 在 水 平方 向 是 以 一 个 英文 字母 位 置 为 单位 左右 移动 的 。 屏 幕 
上 一 行 最 多 可 以 显示 17 个 汉字 ， 如 果 要 把 一 个 汉字 显示 在 左边 第 二 个 汉字 位 置 , H 值 应 为 2。 
光标 在 垂直 方向 是 以 一 行为 单位 上 下 移动 的 。 利 用 这 两 个 语句 可 以 把 光标 横 线 移动 到 屏幕 上 
的 任何 位 置 。 也 就 是 说 ， 可 以 把 汉字 显示 在 屏幕 上 的 任何 一 个 位 置 上 。 


0 33 


图 5-8-1 
例 1 设计 一 个 字幕 ， 要 求 在 屏幕 正中 间 显 示 如 图 3=8-2 所 示 的 字幕 。 
200 CALL 49941 
210 POKE 214，7:POKE 215，3 
220 PRINT “微机 汉字 报表 处 理 程序 4 
230 POKE 214，10:POKE 215，5 
240 PRINT“ 同 济 大 学 计算 中 心 ” 
250 POKER 214，13: POKE 215，7 


4 


260 PRINT ”1984/3/277 

270 END 

语句 220 在 第 4 行 ( 行 编号 为 3) 显 示 10 个 汉字 ， 要 使 它们 显示 在 正中 间 ， 两 边 共 需 留 
下 7 个 汉字 位 置 ， 即 左右 两 边 各 留 3 个 半 汉 字 的 位 置 ， 即 7 个 英文 字母 的 位 置 ， 所 以 互 值 取 
为 7， 所 以 语句 210 中 使 用 了 POKER 214，7。 

这 个 程序 可 以 显示 所 要 求 的 字幕 ， 但 在 屏幕 第 5 行 ,， 第 7 行 ， 第 9 行 的 左 方 各 留 下 一 个 
光标 横 线 ， 为 使 画面 美观 、 整 洁 ; 必须 清除 这 些 光 标 横 线 。 详 见 下 面 的 CAELL 语句 叙述 。 


微机 汉字 报表 处 理 程 序 
同济 大 学 计算 中 心 
1984/3/27 


国 5-8-2 


二 、CALL 语句 


,设计 一 俱 汉 字 信 息 处 理 程序 ， 当 程序 运行 时 ， 都 希望 有 一 个 整洁 、 美 观 的 屏幕 显示 ， 使 
整个 处 理 过 程 清晰 ， 结 果 一 目 了 然 ， 用 户 使 用 这 个 程序 进行 操作 时 也 不 容易 出 错 ， 这 就 要 求 
在 程序 执行 过 程 中 随时 清除 不 必要 的 显示 信息 。 

APPLEJI: PLUS 的 汉字 系统 提供 5 个 子 程序 ,供用 户 在 程序 中 使 用 ， 以 美化 屏幕 显示 。 

这 5 个 子 程序 的 调用 方法 如 下 : 

CALL 互 M 

CALL CC 

CALL CE 

CALL CL 

CALL CF 

各 个 子 程序 的 入 口 地 址 C-PLUSIT-A 汉 卡 所 在 的 插座 号 码 值 CN 有 关 。 计 算 公式 
如 下 ， 

设 ”BS= 49152+ 256*CN 册 

HM=Bo9+21 

CC=BS+24 

CE= Bo9+36 

CL= 了 Bo9+39 

CE=PRo+42 

如 果 汉 卡 揪 在 3 号 播 座 上 ， 那 未 调用 请 名 是” 

CALL HM CALL 49941 

CALL CC CALL 49944 

CALL CE CALL 49956 

CALL CL CALL 49959 

CALL CEF CALL 149962 

下 面 分 述 各 个 子 程序 的 功能 ， 

1。CALL HM 


* 0 v 


这 个 子 程序 可 取代 英文 BASIC 中 HOME 的 功能 ， 执 行 这 个 语句 ， 清 除 整 个 屏幕 画面 ， 
并 将 光标 横 线 移 到 左上 角 。 如 本 闻 例 1 中 第 一 个 语句 就 是 -CALL HM 语句 ， 它 清除 以 前 址 
留 在 屏 右 上 的 全 部 内 容 。 

2. CALL CC 

执行 这 个 子 程序 ， 清 除 这 个 命令 执行 前 PRINT 语句 所 遗留 下 来 的 光标 横 线 。 

例 2 在 例 1 中 使 用 CALL CC 语句 ， 可 以 清除 各 个 PRINT 语句 遗留 下 来 的 光标 横 、 

200 CALL 49941 

210 POKE 214，7*POKE 215，3 

220 了 PRINT“ 微 机 汉字 报表 处 理 程序 7 

230 CALL 49944:POKE 214，10:POKE 215，5 

240 PRINT 同济 大 学 计算 中 心 / 

250 CALEL 49944:POKE 214，13:POKE 215，7 

260 PRINT 21984/3/277 

270 CALEL 49944 


280 END 
语句 230，250，270 中 都 使 用 了 CALL CC， 分 别 将 语句 220，240，260 中 PRINT 遗 
昔 下 来 的 光标 横 线 清除 。 
3。CALL CE 


这 个 子 程序 的 功能 和 APPLE 中 的 英文 指令 ESC 已 相同 ， 它 清除 光标 横 线 所 在 行 从 横 
线 位 置 开 始 到 行 末 的 整个 字幕 。 

例 3 设计 一 个 输入 报表 各 栏 标题 ; 各 栏 设 定 长 度 及 各 栏 的 数据 类 型 ( 设 数据 类 型 分 为 文 
字 型 和 数字 型 两 种 ， 分 别 以 0，1 表示 ) 的 程序 ， 要 求 在 屏幕 上 以 表格 形式 显示 输入 的 数据 ， 
假设 要 求 先 在 第 4 行 显示 这 站 表格 的 表 目 “ 栏 长 度 >"“ 类 型 >“ 栏 标题 ?>， 当 输入 各 栏 长 度 、 类 
型 及 标题 时 从 第 5 行 开 始 依 序 显 示 在 相应 的 表 目 下 面 。 如 图 3-8-3 所 示 。 


类 型 “” 栏 标 题 


文字 ”姓名 
数字 年龄 


5-8-5 
下 面 ， 先 给 出 显示 表 目 的 程序 ， 
200 CALL 49941 
210 POKE 214,, 3:POKE 215，3 
220 PRINT / 栏 长 度 / 
230 POKE 214，11:POKE 215，3 
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240 PRINT 类型/ 

250 POKE 214，17:POKE 215，3 

260 PRINT ” 栏 标题 / 

270 CALL 49944 

如 果 要 求 在 各 栏 长 度 、 类 型 及 标题 输入 过 程 中 ， 每 次 都 在 屏幕 的 第 一 行 第 三 列 开始 用 中 
文 “ 请 输入 栏 长 度 >"“ 请 输入 类 型 ?>“ 请 输入 栏 标题 ”显示 来 提示 用 户 操 作 ， 当 用 户 输入 一 个 数 
据 后 ， 再 填 到 下 面 表 格 的 相应 位 置 。 程 序 可 以 这 样 设计 ， 先 在 屏幕 第 一 行 第 三 列 显 示 “ 请 输 
入 ”三 个 字 ， 以 后 每 次 都 保留 这 三 个 字 ， 并 接 在 它 后 面 显示 “ 栏 长 度 ? “类 型 >“ 栏 标题 ”以 构 
成 一 个 完整 的 提示 信息 ， 每 当 一 个 数据 输入 后 , 把 光标 横 线 移 到 第 一 行 第 四 个 字 的 起 始 位 置 ， 
用 CALL CE 语句 把 “请 输入 ”后 面 的 整 行 字幕 清除 ， 以 显示 下 一 个 提示 信息 。 现 在 接着 上 
面 的 程序 往 下 写 ， 假 设 只 输入 一 行 。 

275 FOR K=1TO 5:POKE 214，0:PRINT 必 :NEXT 开 

280 POKE 215，0:POKE 214，2 

290 PRINT “请 输入 

300 INPUT “ 栏 长 度 ;“，LN 

310 POKE ?14，5:POKE 215，4:PRINT LN:GOSUB 800 

320 INPUT “类 型 0: 文字 1: 数 字 LM 

330 IF LM=1THEN 370 

340 IF LM=0THEN 360 

350 GOTO 320 

360 POKE 214，11:POKE 215，4:PRINT 7 文字 7:GOSUB 800:GOTO 380 

370 POKE 214，11:POKE 215，4:PRINT “数字 :GOSUB 800 

380 INPUT 7“ 栏 标题 7;C$ 

390 POKE 214，17:POKE 215，4:PRINT C$:GOSUB 800 

400END 


800 POKE 215，0:POKE 214，8 

810 CALL 49956 

820 RETURN  - 

衬 序 中 语句 800 开始 的 子 程序 把 屏幕 第 一 行 中 中 文 提示 信息 的 第 四 个 字 开 始 到 行 末 的 字 
幕 请 除 ， 保 留 前 三 个 中 文字 “请 输入 ”， 其 中 语句 800 把 光标 横 线 定位 在 第 4 个 汉字 的 起 始 位 
置 ， 语 句 810 清除 字幕 。 在 输入 栏 标题 时 ， 语 句 300,320，380 中 的 中 文 提示 接 在 “请 输入 ”三 
个 字 之 后 ， 显 示 组 成 完整 的 提示 信息 。 语 名 310，360，370，390 分 别 把 输入 的 数据 登记 到 
屏幕 上 表格 的 相应 表 目 下 面 。 

4。CALL CL 

这 个 子 程序 清除 光标 横 线 所 在 行 的 全 部 字幕 。 

例 4 上 例 中 如 果 要 求 在 屏幕 上 第 一 行 显示 输入 操作 的 提示 信息 ， 当 输 入 出 错时 , 在 第 一 
行 显 示 错 误 性 质 并 提示 用 户 应 如 何 处 理 。 可 以 在 程序 中 使 用 CALL CL 语 句 ， 例 3 程序 彤 改 
如 下 ， 

275 FOR 人 =1TO5:PCKE 214，0:PRINT K:NEXT 开 
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280 POKE 215，0:POKE 214，2 

290 INPUT 7 栏 长 度 / LN 

300 POKE 214，5:POKE 215，4:PRINT LN:GOSUB 800 
310 INPUT “类 型 0: 文字 1: 数字/ LM 

320 ON LM+1 GOTO 340，350 

330 Y$ = 类 型 选择 错 17，GOSUB 900:GOTO 310 

340 POKE 214，11:POKE 215，4:PRINT 7 文字 /，GOSUB 800:GOTO 360 
350 POKE 214，11:POKE- 215，4:PRINT 7“ 数字/，GOSUB 800 

360 INPUT 7 栏 标题 :”35C$ 

370 POKE 214，17:POKRE 215，4:PRINT C$:GOSUB 800 
380 上 上 END 


800 POKE 215，0:POKE 214，2 
810 CALL 49959 
820 了 RETURN 


900 POKE 214，2:POKE 215，0:CALL 49959 

910 PRINT Y$; 请 按 CTRL=-X 后 重新 输入 / 

920 GET Gy$ 

930 IF G$ = CHR$(24) THEN GOSUB 800:RETURN 

940 GOTO 920 

程序 运行 到 语句 310 时 ， 屏 幕 上 第 一 行 显示 提示 信息 , “类 型 0: 文 字 1: 数 字 ”， 它 提示 
用 户 ， 若 这 一 栏 的 内 容 是 文字 (如 姓名 一 栏 )， 按 数字 键 0 回答 ， 若 是 数字 (如 年 龄 一 栏 )， 按 
数字 键 1 回答 。 若 用 户 回答 的 不 是 “0 或 “1”， 则 转 去 执行 语句 900 开始 的 子 程序 ， 先 把 屏幕 
第 一 行 清除 ， 接 着 执行 语句 910， 在 第 一 行 显示 “类 型 选择 错 ! 请 按 CTRL-X 后 重新 输入 ”， 
提示 用 户 处 理 方式 。 当 用 户 按 了 CTR-X 后 转 去 执行 语句 800 开始 的 子 程序 , 再 次 清除 第 一 行 
提示 错误 性 质 及 指示 处 理 方式 的 信息 ， 然 后 返回 语句 310， 重 新 在 第 ~- 行 显 示 输 入 类 型 的 提 
示人 信息， 等 待 用 户 再 次 输入 正确 的 选择 。 

5。CALL CEF 

这 个 子 程 序 的 功能 和 英文 指令 也 SC-F 的 功能 相同 。 用 以 清除 光标 横 线 后 面 直到 屏幕 右 
下 角 的 全 部 字幕 。 

如 果 要 在 屏 疾 上 设计 一 个 字幕 ， 屏 幕 上 部 是 一 个 固定 字幕 ， 屏 幕 下 部 从 某 行 开始 的 字幕 
是 可 变 的 。 那 未 ， 每 次 要 改变 下 部 屏幕 显示 的 内 容 时 ， 可 以 使 用 POKE 语 句 ， 先 把 光标 横 线 
移 到 这 一 行 的 最 左面 ， 然 后 使 用 CALL CE 语句 把 这 一 行 以 下 的 全 部 字幕 清除 。 

例 5 在 例 4 中 ， 若 要 输入 10 栏 标题 的 长 度 、 类 型 及 标题 名 并 且 显 示 在 表格 的 相应 表 目 
下 ， 受 屏幕 显示 区 的 限制 ， 可 以 先 显示 前 5 栏 的 信息 ， 在 输入 后 5 栏 之 前 ， 把 前 5 栏 的 显示 
信息 全 部 清除 ， 再 在 表 目 下 显示 后 5 栏 的 信息 。 程 序 中 使 用 CALL CEF 语句 。 

200 CALL 49941 


210 POKE 214，3:POKE 215，3 

220 PRINT 7 栏 长 度 / 

230 POKE 214，11:POKE 215，3 

240 PRINT 7“ 类型/ 、 

250 POKE 214，17:POKE 215,， 3 

260 PRINT “7 栏 标题 7 

270:CALE 49944 

272 直 =1 

274[=L:J=14 

276 FOR K=LTOE+4:POK 人 214，0:PRINT KK:NEXT 开 
280 POKE 215，0:POKE 214，2 

290 INPUT 7 栏 长 度 ,/3;LN(CI) 

300 POKE 214，5:POKE 215，J:PRINT LN(I):GOSUB 800 
310 INPUT 7 类 型 0: 文 字 1: 数 字 /LM(I) 

320 ON LM(I) +1 GOTO 340，350 

330Y$ = “类 型 选择 铺 J7，GO9UB 900:GOTO 310 

340 POKE 214，11:POKE 215，J:PRINT /文字 7:GOSUB 800:GOTO 360 
350 POKE 214，11:POKE 215，J:PRINT “数字 7:GOSUB 800 
360 INPUT“ 栏 标题 :^ CCD) 

370 POKE 214，17:POKE 215，J:PRINT CCD:GOSUB 800 - 
380 IF I=5THEN POKE 215，4:POKE 214，0:CALL 49962:L= 6:GOTO.274 
390 IF I= 10 THEN END 

400 TI=I+1:J=J+1:GOTO 280 


800 POKE 215，0:POKE 214，2 

810 CALL 49959 

820 RETURN 

900 POKE 214，2:POKE. 215，0:CALIEL 49959 

910 PRINT Y$;" 按 CTRL-X 后 重新 输入 / 

920 GET Gy 

930 IF G$= CHR$(24) THEN GOSUB 800:RETURN 

940 GOTO 920 

语句 276 在 第 一 列 显示 栏 的 编号 ， 显 示 前 5 栏 标题 后 ,语句 380 中 的 CALL CF 语句 把 
这 5 栏 标题 全 部 清除 ， 继 续 显 示 后 5 栏 标题 。 


三 、 控 制 打 印 输出 的 POKE 语句 


在 C-PLUS T-A 汉 卡 系统 中 如 下 的 POKE 语句 控制 打印 输出 ， 各 个 POKE 位 置 与 打 
印 机 、 汉 卡 所 在 的 扩充 播 座 号 码 有 关 ， 下 面 以 CN 代表 汉 卡 所 在 的 扩充 插座 号 码 ，PT 代表 
打印 机 所 在 的 扩充 插座 的 号 码 ， 并 设 汉 卡 捅 在 3 号 扩充 播 麻 上， 打印 机 插 在 1 号 扩充 插 序 上 ， 

。60 ， 


即 CN=3，-PT=1。 
1. 开关 打印 视 的 POKEE 语句 
(1) POKE 1400+CN，PT 
例如 ，POKE 1403，1 
表示 接 通 打 印 机 ， 准 备 打 印 ， 相 当 于 英文 语言 由 的 PR# 1 功能 。 
(2) 上 OK&E 1400+CN，0 
例如 ，POKE 1403，0 
表示 关闭 打印 机 ， 相 当 于 英文 语言 中 的 PR#0 的 功能 。 
。 控 制 打印 族 式 和 字形 的 POKE 语句 - 
(1) PORKE 1656+CN，0 
例如 ，POKE 1659，0 
表示 打印 机 以 大 字 横 印 。 - 
例 1 以 大 字 横 印 打印 一 个 报表 表 头 “同济 大 学 教师 名 册 ” 
10 POKE 1403，1 
20 POKE 1659，0 
30 PRINT “同济 大 学 教师 名 册 ? 
40 POKE 1403，.0 
打印 结果 如 下 廊 示 。 


Co 


同济 大 学 教师 名 遇 ， 

它 定位 在 打印 纸 的 最 右面 ， 系 统 规定 ， 若 对 打印 机 字形 和 格式 不 加 选择 ， 机 器 自动 选 定 . 
为 大 字 横 印 。 当 打印 机 没有 被 设 定 过 其 他 的 打印 党 式 及 字形 ， 字 形 语 名 20 不 用 ， 结 果 是 一 样 
的 。 反 之 ， 这 个 语句 不 能 省 略 。 

例 2 以 大 字 横 印 打 印 一 个 报表 表 头 , 要 求 表 头 定位 在 打 印 纸 的 正中 间 , 且 在 表 头 下 面 打 
印 一 道 点 划 线 。 假 设 使 用 MX-80 打印 机 ， 每 行 最 多 能 打印 30 个 大 字 横 印 汉字 。 程 序 如 下 ， 

]LIST 

1000.POKE 1403，1 

1010 POKE 1659，0 

1020 GOSUB 1100 

1030 PRINT 2 同济 大 学 教师 名 册 ? 

1040 GOSUB 1100 

1050 FOR J= 1TO 16 

1060 PRINT 7 一 2; 

1070 NEXT 可 

1080 PRINT 2 

1090 POKE 1403，0:END 

1100 FOR J= 1TO 22 

1110 PRINT 7; 

1120 NEXT 

1130 RETURN 

程序 中 语句 1100 开始 的 子 程序 打印 空格 ， 使 表 头 能 定位 在 打印 纸 的 正中 间 。 

6T 。 


(2) POKE 1656+CN，1 
例如 。，POKE 1659，1 


表示 打印 机 以 大 字 直 印 。 

例 3 在 例 1 中 ， 如 果 把 20 句 改 为 POKE 1659，1 ， 则 打印 结果 如 下 ， 
” 区 族 愉 对 寿 县 冰 宁 

(3) POKE 1656+CN，2 

例如 ，POKE 1659，2 

表示 打印 机 以 小 字 横 印 。 

例 1 中 的 20 语句 改 为 POKE 1659，2 ， 则 打印 结果 如 下 ， 

同济 大 学 教师 名 册 


例 4 用 小 学 横 印 打印 例 2 的 程序 清单 ， 步 又 如 下 : 
]PR#3  ( 按 人 了 RETURN 键 )3 
]POKE 1403，1( 按 RETURN 键 ， 接 通 打印 机 。); 
]POKE 1659，2( 按 RETURN 键 ， 这 一 行 在 打印 机 的 纸 上 打 印 出 来 。) 
]LIST 1000，!130 ( 按 RETURN 键 ， 开 始 打印 例 2 的 程序 清单 ， 直 到 打印 结束 。); 
]POKF 1403，0( 按 RETURN 键 ， 关 闭 打 印 机 ， 这 一 行 仍然 打印 出 来 。)。 
例 5 输入 一 个 报表 的 各 栏 标 题 ， 表 格 的 宽度 小 于 60 个 汉字 ， 使 用 MX-80 打印 机 , 更 
求 以 小 字 横 印 打印 各 栏 标题 。 
10 _ INPUT “总 栏 数 ,4N:DIM C$CN ) 
20 FOR TI=1TON:INPUT CS(CD):NEXT 1 
30 POKE 1403，1:POKE 2043，120 
40 POKE 1659，2 
50 FOR 1I=1TON 
60 PRINT C$(D357 2 
70 NEXT IT 
80 PRINT 2 
90 POKE 1403，0 
100 END 
语 勾 60 打印 各 栏 标题 ， 并 在 每 两 栏 标 题 之 间 留 一 个 空格 。 语 名 POKE 2043，120 定义 
一 行 中 最 多 可 以 打印 的 字数 (在 本 节 稍 后 叙述 。)。 
(4) POKE 1656+CN，3 
例如 ，POKE 1659，3 
表示 打印 机 以 小 字 直 印 。 
例 1 中 的 语句 10 改 为 POKE 1659，3， 打 印 结果 如 下 ， 
ER 
例 6 打印 一 个 报表 , 要 求 整 个 表格 定位 在 打印 纸 的 正中 , 表 头 以 大 字 横 印 定位 在 表格 
中 ， 副 表 头 以 大 字 横 印 定位 在 表格 左上 角 , 栏 标题 及 各 报表 行 以 小 字 横 印 , 定位 在 表格 正中 。 
由 于 在 C-PLUS T-A 汉 卡 中 不 能 使 用 TAB 函数 ， 所 以 报表 打印 输出 时 的 定位 工作 必 
须 用 程序 完成 。 为 使 各 栏 输出 的 内 容 对 齐 ， 应 以 一 栏 中 可 能 出 现 的 最 长 记录 来 取 定 各 栏 的 设 
定 长 度 。 在 下 面 编 制 的 程序 中 
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报表 表 头 在 标号 为 3200 的 DATA 语句 中 给 出 并 读 入 Ag 

报表 副 表 头 在 标号 为 3210 的 DATA 语 中 给 出 并 读 入 B$5 

报表 的 总 栏 数 ， 总 行 数 在 语句 3220 中 给 出 并 读 入 N，M8 

各 栏 的 设 定 长 度 在 语句 3230 中 给 出 并 读 入 LN(I); 

各 栏 的 标题 在 语句 3240 及 3250 中 给 出 并 读 入 C$kI) 

各 个 报表 行 在 语句 3260~3290 中 给 出 并 读 入 D$(I，J)。 

本 程序 中 报表 栏 共 10 栏 ， 并 给 出 两 行 报表 内 容 。 

1500 TL=0 

1505 READ A$:HH$=A$:GOSUB 3100:LA = LH/2 

1510 READ B$:HH$= B$:GOSUB 3100:LB= LH/2 

1515 READ N，M:DIM LNCN):DIM C$CN):DIM D$CM,，Ny》 

1520FORI=1TON: READ LN(OD:TL=TL+2esLN(GID)+1:NEXTI 

1525 FOR I=1 TONN 

1530 READ C$(TD):HH$- C4(0ID):GOSUB 3100 

1540 IF LH= 2s*LN(I) THEN 1580 

1550 FOR J= 1 TO 2sLN(I)-LH:C$(GI) = C$(D) + 2:NEXT 可 

1580 NEXT 1 

1800 FOR TI= 1 TO M:FOR J=1TO N:READ D$(J):HH$=D$(I，D:GOSUB 
3100 

1810 IF LH= 2*sLN(CJ) THEN 1830 

1820 FOR K=1 TO 2*LN(J)-LH:D$(0I，J) = D$(I，J +2ZNEXT KK 

1830 NEXT 可 

1850 NEXT TI 

2000 POKE 1403，1:POKE 1659，0:POKE 2043，120 

2010L1=(60-2*LA)/2:GOSUB 3000 

2020 PRINT Ag 

2030 GOSUB 3000:L2= 2*LA:GOSUB 3050 

2040L1=(120-TL)/4:GOSUB 3000 

2050 PRINT 8B$ 

2060 GOSUB 3000:L2 = 2sLB:GOSUB 3050 

2070 POK 已 1659，2 

2075 LI1=(120-TL)/2 

2080 GOSUB 3000. 

2090FOR I=1TON 

2100 PRINT C$(CD3; 7; 

2110 NEXT 、 

2120 PRINT 27 

2130 GOSUB 3000 

2140L2=TL:GOSUB 3050 

2150 上 OR I=1TO M: GQSUB 3000 
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2155 FOR J=1TON 

2160 PRINT D$(I，J)57 03 

2170 NEXT 可 

2180 PRINT 2 

2185 NEXT ] 

2190 POKE 1403，0:POKE 1659，0*POKE 1915，0:POKE 1787，4:END 

3000 FOR J=1TOL1 

3010.PRINT2Z，y; 

3020 NEXT j 

3030 RETURN 

3050 FOR J= 1 TO L2 

3060 PRINT7 - 

3070 NEXT j 

3080 PRINT 人 

3090 RETURN 

3100 LH= 0:JJ=0 

3110 JJ=LEN(CHH$) 

3120 IF JJ=0THEN LH=0:RETURN 

3130 FOR II= 1 TO JJ 

3140 BB$ = MID$CHH$，II，1) 

3150 女 民 = ASCCBB$) 

3160 IF KK<97 AND KK 一 >32 OR KK 一 > 121 THEN LH=ILH+1: GOTO 3180 

3170 IF KK = 32 THEN LH=LH+2 

3180 NEXT II 

3190 RETURN 

3200 DATA 7 同济 大 学 教师 名 册 ” 

3210 DATA 7 建筑 系 / 

3220 DATA 10，2 

3230 DATA 4, "2，4，4，4，4，4，12，10，2 

3240 DATA “姓名 “， “性 别 7， “出 生年 月 7 ， “政治 面 狐 /， “文化 程度 7 

3250 DATA “职务 “职称 *,， “家 庭 地 址 *,“ 何 年 何 月 受 何 奖惩 狱 “ 婚 否 ?4 

3260 DATA “ 王 林 7^， “ 男 / ， “35， 17， 127 ， “党 7， “大 学 7 

3270 DATA / 室 主 任 /， “副教授 ， 4 延安 路 100 号 7， ZX ， 《已 4 

3280 DATA “ 陈 红 7?， / 女 7， /42.5.672， /7 ， /大 学 7 

3200 《7 ， /讲师 7， “北京 路 50 号 /7， 7 y 已 2 

程序 中 语句 3100~3190 是 计算 一 个 包含 汉字 的 字符 串 长 度 的 子 程序 ， 它 给 出 了 这 个 含 
有 汉字 的 字符 串 输出 时 占据 本 几 个 英文 字母 的 打印 位 置 ; 

语句 3000 一 3030 是 打印 空格 子 程 序 ; 

语句 3050 一 3090 是 打印 氮 划 线 子 程序 ? 

语句 1500 一 1850 污 入 A$,B$，C$(I)，D$(L,J), 计 算 各 个 数据 的 长 度 ， 当 C$(ITD)，DS 


@ 6 是 人 @@ 


(1， 刀 中 每 一 个 数据 与 其 所 在 栏 设 定 的 长 度 不 等 时 ， 必 须 以 空格 补 齐 ， 使 每 一 栏 的 各 个 数据 
等 长 ， 打 印 时 各 栏 才能 对 齐 。 并 由 各 栏 设 定 长 度 计 算 报 风 一 行 的 总 长 度 TL( 它 还 计 入 每 两 
栏 之 间 记 留 的 一 个 空格 数 图 ); 

语句 2000 接 通 打印 机 ， 定 义 大 字 横 印 及 每 行 最 多 可 打印 60 个 汉字 # 

语句 2010 根据 表 头 的 长 度 LA， 计 算 打 印 纸 两 边 应 留 的 空格 数 ， 使 表 头 能 定位 在 打印 
纸 正 中 3 

语句 2030 在 表 头 下 面 打 印 点 划 线 ; 

语句 2040 由 一 行 的 总 长 度 TL， 计 算 在 表格 两 边 应 留 出 的 空格 数 , 使 整个 报 玫 定位 在 打 
印 纸 正中 ; 

语句 2050 使 副 表 头 打 印 在 报表 左上 和 角 ， 

语句 2060 在 副 表 头 下 打印 点 划 线 ; 

在 打印 栏 标题 及 报表 行 之 前 由 语句 2070 设 定 小 字 横 印 。 

语句 2080 一 2120 打印 栏 标题 

语句 2140 在 栏 标题 下 面 打 印 点 划 线 ; 

语句 2150 一 2185 打印 各 报表 行 ; 

语句 2190 关闭 打印 机 ， 结 束 打印 程序 。 

语句 2000 中 的 OKE2043，120 是 定义 一 行 打印 字数 的 POK 了 语句 , 请 看 后 面 的 叙述 。) 

这 是 一 个 通用 的 报表 打印 程序 ， 打 印 不 同 的 报表 ， 只 要 修改 DATA 语句 中 的 报表 数据 
即 可 。 若 要 打印 包含 空格 符 的 字符 串 须 修 改 语句 3100 一 3190 的 子 程序 ;读者 不 妨 一 试 。 

3， 定 义 打 印 时 行 、 列 间距 的 POKE 语句 

(1) 定义 打印 时 列 间 上 距 的 PORKRE 所 语句 

格式 ，POKE 1912+CN，N 

例如 ，POKE 1915，N 

定义 打印 时 每 两 个 英文 (包括 数字 、 符 号 ) 字 之 间 的 距离 为 N 个 点 的 间距 。 中 文字 之 间 的 
距离 为 2N 个 点 的 距离 。 

例如 ，N = 4， 则 英文 与 英文 字母 之 间 的 距离 为 4 点， 中文 与 中 文字 之 间 的 距离 为 8 
点 ， 由 于 中 文字 点 阵 为 16 x 16， 所 以 这 里 两 个 中 文 之 间 的 距离 为 一 个 英文 字 的 大 小 , 也 即 半 
个 汉字 的 大 小 ， 两 个 英文 字母 间 的 距离 为 半 个 英文 字母 的 大 小 。 一 个 英文 字 与 中 文字 间 的 距 
离 也 为 半 个 英文 字 的 大 小 。 

如 果 不 设 定 N 值 ， 则 N 目 动 设 定 为 0。 

例 2 的 程序 ， 不 设 定 N 值 及 设 定 N =4 时 打印 的 程序 清单 分 别 如 下 : 

不 设 定 

]LIST 

1000 POKE 1403，1 

1010 POKE 1659，0 

1020 GOSUB 1100 

1030 PRINT “同济 大 学 教师 名 册 ^ 

1040 GOSUB 1100 

1050 FOR J=1TO 16 

1060 PRINT “7- 2 
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1070 NEXT 了 
“T080 上 RINT 227 
1090 POKE 1403，0: 已 
1100 FOR J=1TO 22 
TIL10ERINTI “3 
1120NEXT j 
1130 RETURN 
N = 4 
]POKE1915，4 
]POKE2043，120 
]LIST 
1000POKE1403，1 
1010PO 玫 已 1659，0 
1020GOSUB1100 
1030PRINTY 同 济 大 学 教师 名 册 ? 
1040GOSUB1100 
1050FORJ=1ITO16 
1060PRINT 7-73 
1070 NEXTj 
1080 PRINTZ7 
1090POKE1403，0:E 
1100 FORJ=1TO22 
1110PRINT ZX 
1120NEXTJ 
1130RETURN 
(2) 定义 打印 时 行 间距 的 语 和 名 
格式 ，POKE 1784+CN，N 
例如 ，POKE 1787，N 
定义 打印 时 行 与 行 之 间 的 距离 为 N 个 点 的 间距 ， 如 果 不 定 义 N 值 , 则 自动 设 定 为 N = 4。 
例 7 在 例 6 中 ， 要 求 根据 报表 一 行 的 总 长 度 确定 大 字 横 印 或 小 字 横 印 报表 栏 标题 及 报 
表 行 。 若 报表 宽度 大 于 30 个 汉字 时 小 字 横 印 ， 小 于 30 个 汉字 时 大 字 横 印 ， 大 字 横 印 时 行 与 
行 间距 离 为 4 个 点 的 间距 ， 小 字 横 印 时 行 与 行 间 的 距离 为 两 个 点 的 间距 。 
只 要 在 例 6 中 加 入 语句 2035，2065， 并 修改 2070 语句 即 可 。 
2035 IF TL<60THEN LI1=(60-TL)/2:GOSUB 3000:GOTO 2050 
.2065 IF TEL<60 THEN 2080. 
2070 POKE 1659,. 2:POKE 1787，2 
4。 定义 一 行 打 印字 数 的 P9KE 语句 
格式 ，POKE 2040+CN，N 
例如 ，POKE 2043，N 
N 定义 打印 机 每 行 多 许 打印 的 字数 ， 它 以 英文 字 为 单位 ， 中 文字 吉 两 个 英文 字 位 置 。 例 
66、.. 


如 共 = 80, 才 示 每 行 可 打印 80 个 英文 字 ， 或 40 个 中 文字 。MX-86 打印 机 一 行 最 多 可 以 打印 
60 个 中 文字 ，MX-100 打印 机 可 打印 120 个 中 文字 ， 如 果 不 定义 帮 值 ， 则 自动 设 定 N = 50。 

这 里 要 注意 两 点 ， 

(1) N 指 的 是 在 列 间 了 中 定 义 为 0 时 打印 机 每 行 多 许 打 印 的 字数 ; 

(2) 每 行 允许 打印 的 字数 包括 列 间距 的 点 值 在 内 ， 所 以 当 POKG 1912+CN,N 中 的 入 
0 时 ， 一 行 中 所 能 打印 的 实际 字符 数 (包括 由 这 些 字符 ， 汉 字 组 成 的 项 与 项 之 间 的 空格 在 内 ) 
不 再 是 POKE 2043，N 中 定义 的 N 值 ， 而 应 该 扣除 列 间距 所 占 的 位 置 。 

当 设 定 N=25 时， 例 2 程序 清单 打印 结果 如 下 ! 

]PO 民 已 2048、25 
]LIST 

1000 POKEE 1403，1 

1010 POK 下 1659，0 < 

1020 GO9UB 1100 

1030 PRINT “同济 大 学 教师 

名 册 7 

1040 GOSUB.1300 

1050 FOR J= 1 TO 16 

1060 PRINT 7- /; 

1070 NEXT 

1080 PRINT 信 

1090 POKE 1403，0: 尼 

1100 FOR J=1TO 22 

1110.PRINT2Z，Z 

1120 NEXT j 

1130 RETURN 

5. 控制 自动 跳 页 动能 的 POKE 语句 

格式 ，POKE 1528 +CN，12 

例如 ，POKE 1531，12 

相当 于 在 英文 APPLE SOFT BASIC 中 PRINT CHRS$(12) 的 功能 ， 即 自动 跳 页 功能 。 
在 汉字 系统 中 ， 首 先 必 须 将 12 加 载 到 1528 + CN 的 位 置 ， 使 用 跳 页 功能 时 ,再 用 CALL BS 
+45(BS = 49152 + 256sCN ) 语 名 调用 跳 页 功能 子 程序 。 

例 8 在 例 7 中 , 要 求 打印 的 份 数 可 以 由 用 户 自己 选择 ;每 打印 一 份 报表 , 自动 跳 过 一 页 。 

只 需 在 例 7 程序 中 增加 语句 1400，1410,2200,， 2210 并 修改 语句 2190。 完 整 程序 如 下 : 

1400 INPUT “打印 儿 份 7 3;V 

1410 U =1:POKE 1531，12 

1500 TL =0 

1505 READ A$:HH$ = A$:GOSUB 3160:ELA =LH/2 

1510 READ B$:HH = B$:GOSUB 3100:LB = LH7/2 

1515 READ N，M: DIM LNCN):DIM CCN):DIM D$CM，N) 

1520 FOR I=1TON:READ LNCD:TL=TL+2*LNCID +1NEXTI 
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i525 FOR i-1 TON 

1530 READ C$(TD) :HH = G$(ID):GOSUB 3100 

1540 IF LH= 2*LNCIT) THEN 1580 

1550 FOR J= 1 TO 2。LN(I) -LH:C4$(I) =:C$(0ITD) +22:NEXT 了 

1580 NEXT TI - 

1800 FOR I=1TO M:FORJ=1TON:READ D4(I，J): HH$=D4$4(I，J):GOUB 
3100 

1810 IF LH=2*LN(J),THEN 1830 

1820 FOR KK=1TO2*LN(GJ)-LH:D$0I，J) =D$0I，J) +27NEXT 下 

1830 NEXT j 

1850 NEXT 1] 

2000 POKE 1403，1:POKE 1659，0:POKE 2043，120 

2010 L1= (60-2*LA)/2:GOSUB 3000 

2020 PRINT Af 

2030 GOSUB 3000:L2= 2*LA:GOSUB 3050 

2035 IF TL<60 THEN L1=(60-TL)/2:GOSUB 3000:GOTO 2050 

2040L1=(120-TL)/4:GOSUB 3000 

2050 PRINT Bf 

2060 GOSUB 3000:L2 = 2sLB:GOSUB 3050 

2065 IF TL<60 THEN 2080 

2070 PO 有 K 了 1659，2:POKE 1787，2 

2075 LI1=(120-TL)/2 

2080 GOSUB 3000 

2090 FOR I=1TON 

2100 PRINT C$(IT3 22 

2110 NEXT TI 

2120 PRINT 2 

2130 GOSUB 3000 

2140L2=TL:GOSUB 3050 

2150 FOR I= 1 TO M:GOSUB 3000 

2155 FOR J=1TON 

2160 PRINT D$CI，J)3 7 2 

2170 NEXT J 

2180 PRINT 多 

2185 NEXT 

2190 IFEU=VTHEN POKE 1403，0:END 

2200U=U+1l:CALL 49152+256*3+ 45 

2210 GOTO 2000 

3000FOR J=1TOLi 

3010 PRINT 2 273 
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3020 NEXT j 

3030 人 ETURN 

3050 FOR J=1TOL2 

3060 PRINT 7 一 7; 

3070 NEXT j 

3080 PRINT 2 

3090 RETURN 

3100 LH=0:JJ=0 

3110 =LENCHH$) 

3120 IF JJ=0THEN LH=0:RETURN 

3130 FOR II= 1 TO J 

3140 BB$ = MID4$4CHHS$，II，1) - 
3150 KK = ASC(BB$) 

3160 IF KK 一 97 AND KK 一 >32 OR KK> 121THEN LH=LH+1:GOTO 3180 
3170 IF KK = 32 THEN LH=LH+2:GOTO 3180 

3180 NEXT II 

3190 RETURN 

DATA 语句 同 本 节 例 6， 不 再 列 出 。 


四 、 控 制 显示 中 文字 母 的 POKE 语句 


1。 了 POKE 253，0 
这 个 功能 与 CIRL-D 相同 ， 在 显示 中 文字 时 ， 左 下 角 不 会 产生 小 的 中 文字 母 。 
2。 了 PORKRE 253，255 
恢复 原始 状态 ， 即 左下 角 显 示 中 文字 母 小 字 。 
、 这 两 个 语句 可 以 在 程序 中 使 用 ， 处 于 POKE 253，255 和 . POKE 253，0 两 个 语句 之 间 
的 一 段 程序 执行 时 , : 丸 是 遇 到 中 文 输出 ， 组 成 每 个 汉字 的 中 文字 母 都 会 在 左下 角 显 示 出 来 。 


第 九 节 系统 函数 及 自 定 义 函 数 


一 、 系 统 函数 


1。PEEK、POKEE 

APPLE IT 的 每 个 存 贮 单 元 可 以 贮存 一 个 0 一 255 之 间 的 数值 。 所 有 程序 或 数据 都 被 转换 
成 一 系列 的 数字 存 贮 在 存 贮 器 中 ， 汉 字 信 息 是 以 组 成 汉字 的 中 文字 母 ASC 码 方 式 存 贮 的 。 
存 贮 单元 地 址 可 以 使 用 十 进 制 表 示 ， 也 可 以 使 用 十 六 进 制 表示 ， 若 用 十 六 进 制 表示 》 须 在 其 
前 面 加 一 个 $ 符号 。 通 常 ， 小 于 32767 的 地 址 用 正 值 表示 ， 大 于 32767 的 地 址 用 负 章 表示 ， 
它 由 地 址 的 正 值 减 去 65536 得 到 。 _ 

系统 提供 了 EEK 功能 从 内 存 某 个 单元 中 读 出 信息 ， 还 提供 了 POKE 功能 把 信息 存 到 
内 存 的 任 一 单元 中 去 。 

(1) POKE 

格式 ，POKE 内 存 地 址 ， 数 值 


。69 。 


肉 存 地 址 是 随机 存 迪 器 RAM 地 址 ， 以 十 进 制 表示 ， 数 值 范围 是 0 一 255。 
其 功能 是 把 一 个 0 一 255 之 间 的 数值 存放 到 指定 的 内 存 RAM 的 一 个 单元 中 。 要 把 一 个 


汉字 存放 到 内 存 某 一 区 域 ， 应 先 求 得 组 成 汉字 的 各 个 中 文字 母 的 .ASC 工 码 ， 再 用 上 OK 语 
名 把 各 个 码 值 顺序 存 入 内 存 。 


例 1 试 在 内 存 898 单元 中 写 入 8 个 bit 的 1。 

10 了 OKE 898，255 

例 2 试 把 “日 ? 字 存 入 内 存 899 单元 。 

10 POKE 899，ASC(7Z 日 7) 

例 3 试 把 ^ 部 ? 字 存 入 内 存 910 单元 开始 的 存 贮 区 中 。 

10 A=LEN(Z 部 7) 

20 FORI=1TOA:POKE 910+I，ASCC(MID$(CA$，I，1)):NEXT TI 
(2) PEEK 

格式 ， 了 PEEK( 内 存 地 址 ) 

内 存 地 址 以 十 进 制 表示 。. 

一 个 PEEK 语句 仅 能 读 出 一 个 存 贮 单元 中 的 数值 ， 其 值 范围 为 0 一 255。 如 果 要 读 出 存 


放 在 某 一 存 贮 区 中 的 汉字 ， 必 须 先 用 PEEK 语句 把 存 贮 区 中 每 一 个 中 文字 母 的 ASCIE 码 读 
出 来 ， 再 转换 成 相应 的 中 文字 母 并 组 合成 一 个 汉字 。 


例 4 试 读 出 内 存 899 单元 的 内 容 并 赋 给 变量 A。 

5 “_POKE 899，ASC(2Z 日 7) 

10 A= 了 EEK(C899) 

20 PRINT A 

RUN 

97 

例 5 试 把 组 成 “部 ? 字 的 四 个 中 文字 母 “ 卜 ”、“ 口 ?>、“ 己 ?“ 中 ?的 ASCE 码 顺序 存放 到 


24576 单元 开始 的 内 存 区 域 中 ， 并 重新 从 这 个 区 域 中 读 出 来 组 成 “部 ? 字 。 已 知 这 四 个 中 文字 
母 的 Asc 工 码 分 别 为 121,，.114，110，100。 程 序 如 下 : 


人 > 


10 FORI=1TO 4:INPUTL:POKE 24575+I，L:NEXT1I 
20 H$=% 

30 FOR I=1TQ 4: H$=H$+CHR$CPEEK(24575+I)):NEXTI 
40 H$=H$+2 

50 PRINT Hy 

60 END- 

RUN 

?121 

了 ?114 

?110 

?108 


部 


。 上 上 下 忆 


RE 项 数 指出 字符 串 存 贮 区 目前 有 多 少 剩 余 空 间 。 它 可 用 在 PRINT 语 名 中。 好， 


*。 4《0 ， 


10 PRINT FRE(I) 

括号 中 的 参数 值 是 任意 的 。 

程序 执行 时 ， 如 果 一 个 字符 串 改变 了 ， 而 原 有 值 仍 然 保 留 。 这 样 ， 内 存 中 有 许多 无 法 使 
用 的 零散 空间 。 使 用 A = FRE(Q) 语 句 ， 系 统 会 把 所 有 无 法 使 用 的 零散 空间 结合 成 一 体 ， 释 
放出 来 以 供 使 用 ， 一 般 用 于 各 程序 段 起 始 位 置 。 

3。USR 

格式 ，USR(A) 

USR 函数 能 将 A 传送 到 机 器 语言 编写 的 子 程序 中 去 。 经 计算 后 ， 结 果 置 于 浮 点 累加 器 
中 ， 再 把 累加 器 的 值 传 回 APPLE SOFT，USR 函数 的 值 就 是 淫 点 累加 器 的 值 。 

USR 函数 执行 过 程 中 ， 要 求 在 主机 的 $OA 一 $OG 单元 中 放 一 条 机 器 指令 JMP( 代 码 
为 4C)， 以 跳 到 机 器 语言 子 程序 的 起 始 位 置 去 。 机 器 语句 子 程序 的 最 后 一 条 指令 为 RTS( 代 
码 为 60)， 用 以 返回 APPLE SOFT。 这 些 工作 须 在 监控 系统 上 卞 完 成 例如 ， 

]CALL- 151 RETURN 

s 0A:4C 0003 RETURN 

# 0300:60 人 ETURN 

*。 CTRL-C RETURN 

]PRINT USR(8)s*3 人 ETURN 

24 

用 CALL-151 命令 进入 监控 系统 后 ,在 $OA 一 $OG 单元 中 存 进 JMP$300; 在 $300 单 
元 存 进 RTS 指 令 ( 操 作 方法 见 第 五 章 第 三 节 )， 当 执行 PRINT USR(8)*3 时 ， 数 字 8 被 存 进 
累加 器 中 ， 监 控 程 序 使 机 器 转 到 $OA 取出 JMP$300 指令 ， 并 跳 到 $300 去 执行 返回 指 念 
RTS， 返 回 APPLE SOFT， 这 时 USR 函数 的 值 就 是 累加 器 中 的 值 8 APPLE SOFT 
把 8 乘 以 3 得 24 并 显示 。 


二 、 自 定义 函数 语 名 (DEF FN) 


APPLE SOFT 除了 提供 前 面 已 叙述 过 的 基本 算术 函数 以 外 ， 还 允许 用 户 使 用 自 定义 了 
数 语句 定义 一 些 算 术 函 数 ， 但 不 允许 定义 字符 串 函 数 。 

例如 ， 计 算 圆 面积 公式 为 rR-， 如 果 需 要 多 次 使 用 ， 可 以 把 它 定义 为 一 个 函数 ， 以 供 随 
时 调用 。 < 

自 定 义 一 个 函数 使 用 语句 

10 DEF FN P(X)=3.14159*wXe 久 
. 末 数 名 为 也， 其 中 . 兴 为 自 变 量 ， 它 是 一 个 虚设 的 变量 。 可 以 大 任 一 简单 变 重 ， 而 且 只 
允许 有 一 个 变量 ， 它 和 主 程序 中 同名 的 变量 彼此 独立 。 

调用 自 定义 函数 时 ， 须 在 该 函数 名 前 加 N。 

例如 : 

30 PRINT FN PCA) 

这 时 虚设 变量 换 成 实际 变量 、 常 数 或 表达 式 。 在 调用 之 前 ， 变 量 必 须 允 赋值。 调用 实例 
如 下 ; 

10 DEFE FN PE(A)=3.14159* 入 # 信 


20 INPUT A 

30 B=FN P(A)+5 

40 PRINT B- 

如 果 输 入 的 A = 2， 执 行 这 个 程序 后 输出 的 函数 值 为 17.56636。 


第 十 节 ”光标 控制 及 屏幕 显示 格式 语句 


在 英文 BASIC 语句 中 提供 了 确定 光标 当前 水 平 位 置 的 POS 函数 、 控 制 光 标 移 动 的 
HTAB，VTAB 语句 以 及 确定 屏幕 显示 格式 的 INVERSE，NORMAL，FLASH 语 名 ， 清 
除 屏幕 显示 的 HOME 语句 等 。 这 些 语 句 在 配置 C-PLUS T-A 汉 卡 时 ， 不 能 使 用 。 但 使 用 
超级 汉 卡 时 ， 除 了 FLASH 语句 外 ， 其 余 语 句 仍 保留 原 有 功能 。 详 见 第 六 章 叙 述 。 


一 、 确 定 光标 位 置 函数 (POS) 


POS 函数 确定 光标 当前 的 水 平 座 标 值 。 若 光标 在 屏幕 最 左 方 ， 水 平 座 标 值 为 0。 
.格式 ，POS(0) 
括号 中 的 0 没有 什么 意义 ， 但 必须 写 上 。 
POS(0) 的 值 为 0 一 39。 
例如 ， ]?/CURSOR，POSITION，IS，w POS(0) 
PRINT 命令 执行 后 ， 在 屏幕 上 显示 
CURSOR，POSITION，,IS，,19 

这 里 POS(0) 值 为 19, 它 指 出 了 在 显示 CURSOR POSITION 1IS 之 后 ,光标 位 于 第 19 
这 是 因为 包括 空格 在 内 的 显示 信息 共 19 个 字符 ， 而 且 POS 的 位 置 是 从 0 算 起 。 
值得 注意 的 是 TAB 的 位 置 从 1 算 起 ，SPC 位 置 是 从 0 算 起 ， 所 以 

]PRINT TAB(23);POR(0) 显示 22 

]PRINT SPC(23);?POS(0) 显示 23 


列 


人 


二 、 光 标 控 制 语 名 (HTAB，VTAB) 


在 PRINT 语句 中 ， 使 用 逗号 及 分 号 可 控制 光标 的 位 置 ， 在 APPLE SOFT 中 SPC 及 
TAB 功能 也 对 光标 定位 非常 有 用 。 如 果 要 把 光标 移 到 屏幕 的 任何 位 置 ， 则 要 使 用 垂直 移动 
光标 的 VTAB 语句 及 水 平移 动 光标 的 HTAB 语句 。 

1。VTAB 

格式 ，VTAB A 

A 是 表达 式 ，A 的 值 表示 垂直 座 标 值 ， 为 1~24。 其 中 屏幕 最 上 方 为 第 一 行 ， 最 下 方 
为 第 24 行 。 如 A 的 值 为 N ， 则 VTAB 使 光标 垂直 移动 到 第 N 行 。 

如 果 A 的 值 超出 1 一 24， 机 器 报错 ; 

? [ILLEGAL QUANTITY ERROR 

2。、HTAB 

格式 ，HTAB A 

A 为 表达 式 , 玫 示 水 平 座 标 值 , 其 值 为 1~255， 屏 幕 最 左边 定义 为 1。 如 A 的 值 为 N， 
HTAB 使 光标 水 平移 动 到 第 N 列 。 当 A 的 值 为 1 一 40， 光 标 出 现在 本 行 ，A 的 信 为 41 一 80， 


。 972 。 


光标 移 到 下 一 行 。 以 此 类 推 ， 
其 中 HTAB 0 使 光标 移 到 本 行 的 第 256 坐标 值 位 置 上 。 
如 果 A 的 值 为 负 或 大 于 255， 机 器 报错 : 
?ILLEGAL QUANTITY ERROR 
例 1 使 屏幕 上 第 10 行 ， 第 10 列 开始 显示 如 下 信息 ， 
1 NAME 
2 9TREET 
3 CITY 
程序 如 下 ; 
10 HOME 
20 VTAB 10:FOR IT=1TO3:HTAB 10:PRINT I:NEAXAT T 
30 VTAB 10:HTAB 12:PRINT 《NAMEY “ 
40 HTAB 12:PRINT 7Z9TREETY 
50 HTAB 12:PRINTYZCITYV 
60 END 


三 、 屏 幕 显示 格式 语句 


AFELEI 可 以 在 屏幕 上 以 三 种 显示 格式 显示 信息 ， 即 正常 显示 方式 ， 反 相 显示 方式 及 
闪烁 显示 方式 。 
1。 HOME 
格式 ，HOME 
HOME 语句 清除 整个 屏幕 显示 ， 并 把 光标 移 到 屏幕 的 左上 和 角 。 
2。NORMAL 
格式 ， NORMAL 
它 使 屏幕 显示 回 到 正常 显示 方式 ， 即 以 白字 黑 底 显示 信息 。 
3。INVERSE 
格式 ，INVERSE 
它 使 屏幕 显示 变 成 反 相 显示 方式 ， 即 以 白 底 黑 字 显示 信息 。 可 以 使 用 NORMAL 使 机 器 
回 到 正常 显示 方式 。 
例如 ， 输 入 命令 
]INVERSE 
]?ZBLACER ON WHITEY 
反 相 显示 
BLACK ON WHITE 
]NORMAL 
]?7WHITE ON BLACK% 、 
正常 显示 
WHITE ON BLACK 
4。 上 LASH 
格式 ，FLASH 


明 


2 《43 ， 


执行 FLASH 后 ， 屏 幕 上 输出 的 信息 以 正常 和 反 相 两 种 显示 方式 交替 显 杀 ,产生 闪烁 。 
输入 NORMAL 可 以 使 机 器 回 到 正常 显示 方式 。 

例 2 ”在 例 1 中 ， 要 求 以 反 相 显示 方式 显示 数字 1，2，3， 以 闪烁 方式 显示 NAME，, 以 
正常 方式 显示 STREET，CITY 。 

程序 如 下 ， ~ 

10 HOME 

20 INVERSE:VTAB 10:FOR I=1TO3:HTAB 10:PRINT I:NEXTI 

30 FLASH:VTAB 10:HTAB 12:PRINT ZNAMEY 

40 NORMAL:HTAB 12:PRINT “STREET 

50 HTAB 12:PRINT ZCITY7 

60 END 


设 定 输出 速度 语句 (SPEED) 

格式 ，SPEED= A 

A 为 表达 式 ， 其 值 为 0~255。 

SPEED 语句 设 定 信息 在 屏幕 上 的 显示 速度 或 输出 到 其 它 外 设 的 传送 速度 。A = 0， 显 
示 的 速度 最 慢 ，A = 255， 显 示 的 速度 最 快 。 开 机 时 初始 设 定 A= 255， 如 果 信 的 值 超出 范 
围 ， 机 器 报错 ， 

? ]ILLEGAL QUANTITY ERROR 

例如 

10 INPUT “速度 码 =V 

20 SPEED=YV 

30- 


下 | 
4 


， | PRINT 语句 
80 
90 SPEED = 255 
标号 为 30~-80 的 PRINT 语句 中 的 信息 ， 以 和 记 选 择 的 速度 码 了 相应 的 速度 显示 。 语 
名 90 恢复 正常 的 显示 速度 。 
这 个 语句 在 汉字 系统 中 功能 不 变 。 


第 十 一 节 其 它 语 名 


一 、 设 置 输入 输出 通道 的 语句 


AETLE SOFT 使 用 输入 、 输 出 设备 是 通过 语句 IN#N，PR#N 实现 的 。 其 中 N 指 外 
设 记 揪 的 外 设 扩充 揪 座 的 编号 。N 取 值 范围 为 0 一 7。 例如 ， 打 印 机 控制 卡 揪 在 1 号 插座 上 ， 
N = 1 软盘 驱动 器 控制 卡 插 在 6 号 扩充 插座 上 ，N = 6， 监 视 器 屏幕 作为 输出 设备 ， 键 盘 作 为 
答 入 设备 ， 系 统 把 它们 的 N 值 定 为 0， 机 器 开机 或 复位 (RESET) 时 ， 系 统 设 定 N = 0。 
1。 了 R##N 


e。 4 。 


使 用 PR#N， 可 以 选择 一 个 外 部 设备 作为 输出 设备 。 例 如 ，: 在 英文 系统 中 ， 使 用 打印 
机 时 ， 必 须 输入 PR#1， 使 输出 通道 和 打印 机 接 通 。 

知 在 程序 之 后 输入 

]PR 闪 1 

]LI9ST 

将 打印 这 个 程序 清单 。 打 印 结束 后 ， 输 入 ]PR# 0， 使 输出 通道 和 打印 机 断 开 并 重新 和 
监视 器 接 通 。 

同样 可 以 在 程序 中 使 用 PR#0、.PR#1。 例 如 ， 

10 了 R 夫 1 

20 了 PRINT7YAPPLEY 

30 了 及 共 0 

RUN < 

APPELE 

如 果 DOS 已 加 载 ，PR#N 也 可 以 在 程序 中 作为 DOS 命令 使 用 。 例 如 ， 

10 D$= CHR$(C4):PRINT D$;ZPR#1/ 

20 了 PRINT 7ZYAPPLEY 

30 PRINT D$;2ZPR#07 

执行 这 个 程序 ， 在 打印 纸 上 打 出 /APPLE"。 

当 汉 卡 插 在 3 号 插座 ， 使 用 PR#3， 选 择 汉 卡 作为 输出 设备 ， 进 入 汉字 系统 。 

2，、IN 夫 人 

使 用 IN# 玖 ， 可 以 选择 一 个 外 部 设备 作为 输入 设备 ， 例 如 在 APPLE SOFT 工作 方式 
下 要 启动 软盘 驱动 器 可 以 输入 IN #6。 

如 果 指 定 的 插座 上 没有 外 设 控制 卡 ， 那 末 APPLET 将 被 镇 住 ， 必须 复位 后 再 重新 选择 。 


一 、 、CALL 语句 


CALL 语句 调用 机 器 语言 子 程序 。 

格式 :CALL 入 口 地 址 ， 

入 口 地 址 须 是 十 进 制 地 址 。 

入 口 地 址 是 机 器 语言 子 程序 在 内 存 中 的 起 始 地 址 。CALL 语句 不 仅 可 调用 有 AM 中 的 
子 程序 ， 也 可 调用 ROM 中 的 子 程序 。 用 户 可 以 方便 地 调用 监控 系统 中 现成 的 子 程序 ， 也 可 
以 自己 编写 机 器 语言 子 程序 ， 存 于 存 贮 器 中 ， 然 后 在 BASIC 程序 中 用 CALL 语句 调用 。 


三 、ONERR GOT0O 及 RESUME 语句 


格式 ，ONERR GOTO 标号 

在 数据 输入 或 读 一 个 盘 文 件 时 ， 由 于 输入 的 错误 或 读 盘 文件 程序 设计 不 正确 会 引起 程序 
中 断 。 为 了 避免 因 小 错误 而 中 止 程序 执行 ，APPLE SOFT 提供 了 ONERR GOTO 语句 。 

些 语句 必须 放 在 程序 前 面 ， 程 序 执行 时 ， 如 发 现 有 错 ， 将 跳 到 ONERR “9OTOQ 所 指明 
的 标号 去 执行 ， 同 时 一 个 描述 错误 性 质 的 数码 被 存 到 224 单元 ， 可 以 用 PEEK(224) 语 句 取 
出 这 个 码 ， 分 析 错 误 性 质 。 

通常 在 这 语句 指出 的 标号 处 设计 一 段 处 理 错误 的 程序 ， 在 程序 结束 前 ， 写 上 RE>UME 


。75 . 


或 GOTO 语句 ， 以 便 返 回 到 发 生 错误 的 语句。 并 重新 执行 这 个 语句 。 
若 要 返回 正常 的 APPLE SOFT 查 错 状 态 ， 可 以 使 用 语句 
POKE 216，0 
例如 
10 ONERR GOTO 50 
20 INPUT A 
30 PRINT A 
40 END 
50 PRINT 请 输入 数字 ? 

60 GOTO 20 


执行 语句 10 的 ONERR GOTO 后 ， 如 果 输 入 一 个 字符 ， 程 序 跳 到 语句 50， 指 示 必 须 
输入 数字 ， 然 后 回 到 出 错 的 语句 20 处 重新 执行 输入 操作 。 语 句 60 可 以 用 人 E5UME 


代 蔡 。 


如 果 不 写 语句 10， 系 统 处 于 APPLE SOFT 正常 的 查 错 状 态 ， 输 出 “?REENTER” 提 和 示 


信息 。 
例如 ， 
10 ONERR GOTO 50 
20 INPUT A 
30 PRINT A 
40 END 
50 PRINT “请 输入 数字 ? 
60 PRINT PEEK(224):POKE 216，0 
70 RESUME 


上 例 程 序 中 ， 当 第 一 次 输入 一 个 字符 ， 输 出 提示 信息 “请 输入 数字 ”， 然 后 读 出 出 错 码 ， 
并 返回 AFPLE SOFT 查 错 状态 。 当 第 二 次 输入 出 错 ， 系 统 提 示 REENTER。 考 输入 正确 ， 


即 输入 了 一 个 数字 ， 则 正常 结束 。 


对 于 开平 方 根 这 样 的 函数 ， 要 求 被 开 方 数 必须 大 于 或 等 于 0 ， 如 果 输 入 一 个 负数 ， 则 出 


现 出 错 信 息 ， 
?ILLEGNL QUANTITY ERROR IN_N 
程序 中 断 。 这 时 ONERR GOTO 请 名 可 以 避免 程序 中 断 。 
例如 
10 ONERR GOTO 50 
20 INPUT 尺 
30 YY=SQR(X) . 
40 PRINT Y:END 
50 PRINT /输入 正 数 或 零 / 
60 INPUTX 
70 RESUME 


过 程 。 
外 76 @ 


错误 出 现在 语句 30， 所 以 执行 语句 60， 重 新 输入 X， 然 后 回 到 语句 30 重新 执行 开平 力 


四 、CLEAR 语句 


CLEAR 语句 将 程序 中 所 有 的 数值 为 0， 所 有 的 字符 串 清 除 为 空 串 。 

例如 ， 

10 A$= “年 令 "， A=30 

20 PRINT Ag 和 ;70 A 

30 CLEAR 

40 PRINT AS$; 7 3 A 

50 END 

程序 执行 到 语 名 20， 显示“ 年龄 ,30?， 语 句 30 把 变量 A 及 A$ 清除 ， 执 符 语 名 40， 显 
示 *40?。 


“1 


第 四 章 “DOS 操作 系统 


APPLEI PLUS 微机 上 配置 了 一 个 磁盘 操作 系统 ， 目 前 用 得 最 多 的 是 DOS 3.3 版 本 ， 
它 的 主要 功能 是 完成 系统 的 操作 管理 ， 特 别 是 磁盘 的 读 、 写 操作 和 磁盘 文件 的 各 项 管理 操 
作 。 

DOS 3.3 是 用 6502 机 器 指令 编写 的 ， 当 系统 引导 后 ， 它 被 装 入 内 存 ， 约 占 10K 存 贮 空 
间 ， 整 个 D9S 系统 常 驻 内 存 。 

在 DOS 操作 系统 支持 下 的 有 APPLE SOFT BASIC， 整 数 BASIC 语言 也 支持 中 文 
APPLE SOFT BASIC 语言 。 

DOS 3.3 提供 了 近 三 十 条 操作 命令 ， 由 于 在 汉字 系统 中 不 能 使 用 整数 BASIC 语言 ， 
INT.CHAIN 等 命令 不 能 使 用 ，FP 命令 不 起 作用 。 

DOS 3.3 系统 主 盘 中 保存 有 DOS 操作 系统 ， 在 操作 系统 引导 到 内 存 之 前 ， 机 器 拒绝 执 
- 行 所 有 DOS 命令 ， 初 始 化 后 的 软盘 上 装 有 DOS 操作 系统 的 副本 ， 它 们 都 可 以 用 来 引导 
DO9。 

DOS 3.3 版 本 和 老 的 DOS 3，DOS 3.1，DOS 3.2 等 主要 差别 在 于 对 扁 区 的 划分 ,DOS 
3,3 提供 了 对 16 个 肩 区 磁盘 的 操作 ， 而 老 版 本 使 用 划分 13 个 肩 区 的 磁盘 。 


第 一 节 ”磁盘 信息 的 组 织 


一 、 坎 盘 和 软盘 驱动 器 


APPLEI 使 用 5 二 软盘 驱动 器 ， 软 盘 驱动 器 控制 卡 一 般 接 在 6 号 扩充 插座 上 ， 一 个 控 


制 卡 可 驱动 两 个 软盘 驱动 器 ， 分 别称 为 1 号 驱动 器 和 2 号 驱动 器 , 并 以 D1 和 D2 表示 ,当初 
始 起 动 时 ， 自 动 设 定 为 D1， 即 DOS 命令 对 1 号 驱动 器 进行 操作 。 


APPLE 工 配置 的 软盘 是 单 画 单 密度 5 二 ”软盘 ， 每 个 盘 划 分 为 35 个 道 ，DOS 提供 对 


16 扇 区 的 磁盘 的 操作 , 所 以 每 道 划 分 为 16 个 户 区 。 每 个 扇 区 可 记录 256 字 节 的 用 户 信息 , 整 
个 磁盘 的 存 贮 容量 为 143 K 字 节 。 

在 经 过 初始 化 的 软盘 上 ， 第 0 一 2 道上 存 有 DOS 3.3 操作 系统 程序 的 副本 ， 第 17 道上 
存放 目录 表 等 磁盘 管理 信息 ， 其 余 的 31 道 供用 户 存放 程序 文件 及 数据 文件 ， 所 以， 用户 实 
际 可 使 用 的 最 大 盘 空 间 是 496 个 扇 区 。 

用 户 文件 使 用 磁盘 空间 ， 系 统 按 如 下 顺序 进行 分 配 ， 使 用 扇 区 时 , 从 第 15 扇 区 向 第 0 扇 
区 依次 分 配 ， 使 用 磁道 时 ， 先 从 第 18 道 开 始 顺序 使 用 到 第 35 道 ， 然 后 再 从 第 16 道 顺 序 使 
用 到 第 3 道 。 


二 、 盘 文件 类 型 及 其 存 吐 格式 
用 户 程 序 及 数据 都 以 文件 方式 存 贮 在 盘 上 ，DOS3.3 能 直接 建立 的 文件 类 型 只 有 四 种 ， 
，fY8 ， 


它们 的 名 称 及 在 目录 表 中 所 使 用 的 代码 见 表 全 1-1。 


表 4-1-1 
人 本 | 文 件 类 :型 
人 A AI 也 SOFT BASIC 文 件 
T 整数 BASIC 文件 
人 正文 文件 
B 二 进 制 文件 
1。BASIC 文件 


此 文件 存放 BASIC 程序 ， 按 APPLE SOFT BASIC 程序 及 整数 BASIC 程序 分 成 两 
种 类 型 的 BASIC 文件 ， 在 汉字 系统 中 不 能 使 用 整数 BASIC 语言 ， 所 以 只 能 是 A 型 文件 。 

在 盘 中 的 存 贮 格式 ， 

长 度 “程序 的 内 存 映 象 

长 度 指 该 程序 占用 内 存 的 字 节 个 数 ， 存 在 头 两 个 字 节 中 ， 长 度 的 低位 放 在 前 面 ， 文 件 的 
其 余 空间 存 贮 这 个 程序 ,以 ASCI 字符 形式 存放 。APPLE SOFT BASIC 的 保留 字 都 用 数 
字 代 表 ， 每 个 数字 也 使 用 相应 的 ASCI 码 存放 。 

2， 正 文 文件 

此 文件 一 般 是 存放 数据 信息 的 文件 ， 有 两 种 不 同型 式 的 正文 文件 ， 随 机 文件 和 顺序 文 


“正文 文件 都 由 记录 组 成 每 个 记录 之 间 用 RETURN (CR) 分 隔 ， 并 以 $00 标志 文件 结 


“正文 文件 的 存 迪 格 式 ， 

记录 1CR 记录 2CR……CRIOO 

顺序 文件 各 记录 是 不 定 长 的 ， 记 录 与 记录 之 间 在 存 贮 时 是 相互 紧 接 的 ， 仅 以 一 个 CR 来 
判别 一 个 记录 的 结束 位 置 ， 信 息 一 般 以 顺序 方式 读 写 ， 随 机 文件 各 记录 是 定 长 的 ， 因 而 可 从 
任 一 指定 的 记录 处 开始 谈 写 。 

正文 文件 中 的 信息 都 以 可 打印 的 ASCI 字符 形式 存 贮 的 , 在 汉字 系统 中 包括 中 文字 母 ， 
每 一 个 字符 占 一 个 字 节 。 

包含 有 中 文 资 料 的 正文 文件 读 到 主 存 后 ， 能 直接 以 中 文 显 示 这 些 资料 。 

3. 二 进 制 文件 

它 是 内 存 中 二 进 制 信息 的 副本 ， 把 内 存 中 从 某 个 地 址 开始 的 一 段 信息 保存 到 盘 上 就 生成 
二 进 制 文件 ， 通 常 这 个 信息 是 一 般 机 器 代码 程序 、 二 进 制 数 据 或 内 存 第 二 页 高 分 辩 率 图 形 区 
的 喘 象 。 用 户 也 可 以 把 中 文 BASIC 编写 的 中 文 信息 处 理 程序 作为 二 进 制 文件 保存 及 调 用 。 
详 见 后 面 的 叙述 。 
“二进制 文件 存 贮 格 式 ， 

地 址 ”长度 内 存 二 进 制 信息 映 象 

文件 的 头 两 个 字 节 贮存 这 段 信息 原来 在 内 存 中 的 起 始 地 址 。 低 位 地 址 放 在 前 面 ， 接 下 两 
个 字 节 存 贮 内 存 映 象 的 字 节 个 数 ， 文 件 的 其 它 空间 存放 二 进 制 信息 。 


efY9 ， 


第 二 节 ”DOs9 操作 系统 的 引导 及 盘 片 的 蕊 始 化 


一 、D0s 操作 系统 的 引导 


由 厂家 提供 的 DOS 3.3 操 作 系统 盘 , 即 主 盘 可 以 在 有 16 开 以 上 RAM 的 任何 APPLEI 
机 上 引导 六 0S， 用 DOS 3.3 进行 格式 化 后 的 盘 〈 或 称 从 盘 ) 上 有 DOS 副本 , 也 可 以 引导 
DOS。 当 DOS 系统 引导 时 ， 将 DOS 从 盘 上 装 入 内 存 ，DOS 在 盘 上 共 占 37 个 扇 区 ，0 道 、 
1 道 都 占用 16 个 扇 区 ， 第 2 道上 占 5 个 扇 区 ， 它 装 入 内 存 的 最 高 RAM 存 贮 区 域 。 在 汉字 系 
统 中 ， 它 装 入 到 主 存 $9600~$BFFF 区 域 。 

引导 操作 系统 方法 如 下 ， 

1。 开机 引导 

把 主 盘 或 从 盘 放 入 工 号 驱动 器 ， 开 机 后 进入 监控 系统 的 自 启 动 程序 入 口 ， 监 控 程序 依次 
扫描 各 个 扩充 插座 ， 如 果 插 座 上 存在 驱动 器 控制 卡 , 则 执行 盘 引 导 程 序 , 进入 盘 片 上 的 HEL. 
LO 程序 ， 屏 幕 上 显示 ; 

DOS VERSION 3.3 08/25/80 

APPLEE PLUS OR ROMCARD SYSTBM MASTER 

2. 执行 引导 命令 

开机 时 ， 如 果 没 有 盘 片 放 入 驱动 器 ， 监 控 系统 控制 进入 BASIC, 输入 命令 PR#6 或 IN 
#6， 也 可 以 进入 监控 系统 程序 的 自 启动 入 口 ， 引 导 过 程 和 开机 引导 相同 ， 在 监控 系统 中 执 
行 6CTRL P 或 输入 C 600 G 命令 也 可 以 引导 DOS。 

DOS 引导 时 分 三 级 进行 ， 第 一 级 引导 程序 是 盘 驱 动 器 控制 卡 上 固化 的 ROM 程序 , 它 读 
入 盘 上 0 道 0 区 上 的 第 二 级 引导 程序 并 执行 ， 第 二 级 引导 程序 执行 时 读 入 磁盘 驱动 程序 
(了 WTS)， 完 成 磁盘 肩 区 的 读 写 及 格式 化 操作 等 ， 最 后 一 级 引导 程序 装 入 整个 DOS9。 

主 盘 上 的 DOS 在 引导 时 可 以 自动 重 定位 ， 机 器 先 将 DOS 放 入 相当 于 16K 系统 的 最 高 
RAM 区 域 ($1D00 一 $4006)， 然 后 再 移动 到 当前 使 用 的 系统 最 高 RAM 区 域 , 所 以 主 盘 可 以 
在 具有 16K 以 上 RAM 的 任何 APPLET 机 上 引导 DOS。 

利用 从 盘 引 导 DOS， 机 器 直接 把 DOS 装 入 与 格式 化 的 系统 相同 的 最 高 RAM 处 ， 这 就 
要 求 引 导 DOS 的 机 器 其 RAM 容量 大 于 或 等 于 该 盘 格 式 化 的 机 器 上 的 RAM 容量 ， 使 用 汉 
字 系统 时 特别 要 注意 这 一 点 ， 在 主 盘 中 存放 MASTER，CREATE 程序 ， 可 以 把 从 盘 改 成 
主 盘 形式 。 

DOS 引导 结束 ， 内 存 里 存 有 HELLO 程序 ， 如 果 要 输入 新 程序 ， 应 先 用 NEAW 命令 清 
除 HELLO 程序 。 


一 、 表 片 的 初始 化 


空白 的 盘 片 必须 经 过 初始 化 后 才能 使 用 ， 初 始 化 工作 必须 在 DOS 引导 进 内 存 下 工作 ， 
初始 化 的 目的 在 于 将 DOS 3.3 操作 系统 写 入 盘 中 第 0、1、2 道 , 完 成 划分 磁道 、. 肩 区 等 规格 化 
工作 ， 初 始 化 命令 格式 为 INIT f， 其 中 工 是 以 BASIC 语言 编写 的 程序 的 文件 名 ， 详 见 下 面 
的 INIT 命令 叙述 ， 一 般 常用 

INIT 了 了 上 LLO 


80 :; 


这 个 程序 的 内 容 是 初始 化 前 内 存 中 存放 的 程序 ， 如 果 是 在 开机 引导 DOs 之 后 直接 初 冶 
化 ， 即 为 HELLO 程序 ， 和 否则 是 初始 化 前 内 存 遗 留 下 来 的 任何 程序 ,用户 也 可 以 根据 需要 写 
入 适当 的 程序 作为 HELLO 程序 。 

使 用 过 的 盘 片 也 可 以 重新 进行 初始 化 ， 这 时 软盘 上 的 所 有 资料 都 被 清除 ， 保 存 有 用 信息 
的 盘 片 切 不 可 作 初 始 化 。 

一 个 盘 如 果 要 作为 存放 汉字 信息 处 理 程序 及 数据 的 介质 ， 必须 在 具有 不 小 于 48 玉 RAM 
的 机 器 中 进行 格式 化 。 格 式 化 过 程 可 以 在 英文 BASIC 下 进行 ， 也 可 以 在 中 文 BASIC 下 进 
行 ， 两 者 输入 相同 的 INIT 命令 ， 初 始 化 时 间 较 长 ， 大 约 要 半分 钟 左 右 ， 初 始 化 结束 ， 系 统 
回答 英文 BASIC 提 示 符 ] 或 中 文 BASIC 提示 符 ]。 


三 节 DOS 命令 的 格式 及 调用 


AIEETEI 的 DOS 3.3 操作 系统 提供 下 列 几 种 操作 命令 ; 

基本 的 程序 存 取 命 令 ，LOAD,SAVE; 

运行 命令 为 RUN 。 

二 进 制 文件 存 取 命令 ，BLOAD, BSAVE; 

运行 命令 为 BRUN。 

正文 文件 操作 命令 ，OPEN, WRITE,READ,CLOSE,APPEND ,EXEC,POSITION; 
盘 文 件 处 理 命令 ，DELETE,LOCK,UNLOCK,RENAME; 

监视 命令 ，MON ,NOMON; 

辅助 命令 ，CATALOG,FP,INT,INIT,PR#,IN#,VERIFY,MAXFILES，CHAIN。 
在 汉字 系统 中 INT,CHAIN 命令 不 能 用 ，FDP 命令 无 作用 。 


一 、D0Y 命令 格式 


大 多 数 DOS 命令 名 格式 如 下 ， 

DOS 命令 名 谍 ，Vv][，Ss][，Dd] 

f, 文件 名 ， 可 以 由 1 一 30 个 字符 组 成 ， 第 一 个 字符 必须 是 英文 字母 ， 在 汉字 系统 中 也 可 
以 是 中 文字 母 ， 其 它 字符 是 除 逼 点 以 外 的 任何 字符 ， 屏 幕 上 不 显示 的 控制 字符 也 可 以 用 在 文 
件 名 中 ， 用 CATALOG 命令 查阅 目录 时 ， 这 些 字 符 是 看 不 见 的 ， 可 用 于 对 文件 名 加 密码 ， 
但 使 用 或 清除 文件 时 ， 这 个 控制 字符 仍 需 输 入 。 

Vv:， 设 定 软盘 片 的 卷 号 ，V 值 的 范围 是 1 一 254， 如 果 V 取 为 0 值 或 不 设 定 V 值 ， 表 示 
DOS 采用 和 所 使 用 的 软盘 片 卷 号 相同 的 V 值 ， 设 定 V 值 ，DOS 将 检查 磁盘 驱动 器 中 正在 使 
用 的 盘 片 是 否 是 操作 者 想 要 的 那 一 片 ， 如 果 站 值 和 盘 片上 的 卷 号 不 同时 ，DOS 给 出 “VOLU 
ME MISMATCH” 的 错误 信息 。V 初始 设 定 为 引导 DOS 时 盘 片 的 卷 号 。 

Ss， 选 择 驱动 器 控制 卡 所 播 的 扩充 插座 号 码 , S 初始 设 定 为 引导 DOS 时 磁盘 控制 卡 所 在 
的 插座 号 码 ， 通 常 是 6。 使 用 过 S 值 后 ， 以 后 再 次 都 定 为 这 个 值 ， 直 到 重新 设 定 S 值 为 止 
S 值 范围 1 一 7。 如 果 系 统 使 用 多 个 驱动 器 ， 可 以 将 控制 卡 搬 到 1 一 7 中 其 它 捅 座 上 ， 并 用 3S 
值 选 择 。 

Dd: 设 定 驱动 器 号 码 ，d 初始 值 设 定 为 1，d 的 范围 为 1 一 2， 每 个 控制 卡带 两 个 驱动 器 ， 
一 个 为 D,， 另 一 个 为 D,， 当 驱动 器 多 于 2 个 时 ， 必 须 用 Ss 和 Dd 配合 以 选择 驱动 器 。 
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例如 ， INIT HELLO，V254，S6，D1 


或 . INIT HELLO，V254，D1，S6 
也 可 用 _ INIT HELLO，V17，D2 
或 INIT HELLO 


Vv.Ss.Dd 可 以 任意 选用 ， 次 序 可 以 互相 调换 。 
其 余 命令 格式 在 下 面 各 个 命令 中 叙述 。 
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二 、D0S 命令 的 调用 

在 BASIC 方式 下 可 以 调用 DOS 命令 ， 调 用 的 方式 有 二 种 : 

(1) 立即 方式 “在 英文 或 中 文 BASIC 提示 符 下 ， 从 键盘 上 直接 打 入 DOS 命 令 ，DOS 
立即 解释 这 个 命令 。 

例如 盘 上 有 个 打印 程序 文件 ， 设 其 程序 名 为 “打印 >， 如 果 要 装 入 这 个 程序 ， 可 以 在 键盘 
上 输入 “LOAD 打印 ?命令 。 

(2) 间接 方式 在 BASIC 程序 中 使 用 DOS 命令 ， 方 法 是 把 DOS 命令 作为 PRINT 语 
句 中 的 字符 串 输出 。 并 在 前 面 加 一 个 特殊 标志 CTRL-D 字符 ,在 APPLE SOFT BASIC 里 
可 以 用 CHR$ 函数 来 定义 CTRL-D， 在 ASCIE 码 中 。4 代表 CTRL-D 字符 ， 下 面 的 语句 
定义 了 一 个 CTRL-D 字符 并 赋值 给 字符 串 变量 D$， 语 名 20 以 间接 方式 执行 了 DOS 命令 ， 
装 入 并 执行 文件 名 为 “打印 ?的 程序 。 

10 D$= CHR$(4) 

20 PRINT DRUN 打印 / 

采用 这 种 方式 执行 Dos 命令 ，D$ 之 前 必须 有 一 个 RETURN 字符 ， 否 则 D$ 将 不 起 
作用 ， 例 如 执行 如 下 程序 ; 

10 D$= CHR 和 (4) 

20 PRINTI 7“ 等待 狂 

30 PRINT D$; “RUN 打印 / 

屏幕 上 显示 “等 待 RUN 打印 ?， 这 是 因为 语句 20 中 的 “ ”把 RETURN 取消 了 ， 为 确 
保 程序 正确 这 行 ，“，” 要 去 掉 。 

如 果 D$ 没有 定义 或 定义 错 了 ， 仅 显示 “RUN 打印 ?而 不 执行 DOS 命令 。 

下 面 的 DOS 命令 只 能 以 间接 方式 调用 : 

OPEN、APPEND、READ、WRITE、POSITION 。 

下 面 的 DOS 命令 既 可 以 以 立即 方式 调用 ， 也 可 以 间接 方式 调用 ; 

CATALUG、5SAVE、BSAVE、LOAD、BLOAD、RUN、BRUN 、LOC 开 、 UNLOCK、 
DELETE、RENAME、EXEC.CLOSE、.MON .NOMON、PR# IN#、MAXEFILES。 

但 DOS 命令 中 的 .INIT 命令 只 能 以 立即 方式 调用 ,因为 INIT 命令 执行 后 将 会 把 盘 片 中 
存放 的 资料 全 部 清除 掉 ， 在 程序 中 使 用 ， 后 果 严 重 。 


三 、D0S 命令 
DOS 命令 必须 以 大 写字 母 输入 。 


1。JIJNIT 命令 
软盘 初始 化 命令 ， 它 把 软盘 上 所 有 资料 清除 并 把 DOS 抄 到 0、1,2 道上 ， 对 磁道 ， 肩 区 
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进行 规格 化 。 

格式 ，INIT f[，Vv][，Ss][，Ddj 

INIT 命令 是 唯一 一 个 能 指定 软盘 号 码 的 命令 ， 以 后 使 用 这 张 磁盘 时 , 其 它 DOS 命令 中 
的 盘 片 号 码 必 须 与 它 相同 ， 命 令 才 能 生效 。 如 果 在 INIT 中 不 给 出 号 码 , INIT 命令 将 自动 地 
设 定 号 码 为 254。 

在 较 大 内 存 容量 系统 中 格式 化 的 盘 不 能 在 较 小 内 存 的 系统 中 执行 DOS 的 引导 。 

2.CATALUG 命令 

显示 磁盘 内 的 文件 目录 ， 如 果 打 印 机 已 接 通 ， 打 印 输出 文件 目录 。 

格式 ，CATALUG 

执行 这 个 命令 显示 18 个 文件 目录 ， 按 除 -RESET、CTREL 及 SHIEFT 以 外 的 任何 键 ， 继 
续 显 示 其 余 的 文件 目录 。 

在 系统 主 盘 上 保存 有 系统 提供 的 一 些 程序 ,: 比如 复制 整个 盘 片 的 COPY A 程序 ， 复 : 制 
正文 文件 的 FID 程序 ， 以 及 展示 DOS 功能 的 RANDOM 程序 等 ,使 用 CATALUSG 命令 可 
以 读 出 它们 的 目录 如 下 ， 

]CATALOG 

DISK VOLUME 254 

*A 006 HELLO 

* T 018 ANIMALS 

:人 003 APPLE PROMS 

*# 006 APPLE SOFT 

* T 026 APPLE VISION 

*T 017 BIORHYTHM 

s*B. 010 BOOT13 

*A 006 BRIAN'S THEME 

*# 了 只 003 CHAIN 

* 009 COLOR DEMO 

本 009COLOR DEMOSORFT 

*A 009 COPY 

# 了 003 COPY OBJO 

*A 009 COPYA 

*# 人 010 EXEC DEMO 

# 卫 :020 王 工 D 

# 卫 050 FPBASIC 

* 了 B 050 INTBASIC 

#A:028 LITTELE BRICKE OUT 

*A 003 MAKE TEXT 

# 了 009 MASTER CREATE 

ss 了 027'MUEFIN 

*A 051PHONE LIST 

*A 010 RANDOM 


.ee 8S3 。 


* 人 A 013 RENUMBER 

s*A 039 RENUMBER INSTRUCTIONS 

* 人 A.003 RETRIEVE TEXT - 

T 004 ANIMALSFILE 

T 004 DO7ZER 

A 006 PRIME 

A 002 EVEN MORE RECENT PROGRAMII 

目录 中 每 个 目 占 一 行 ， 每 行 从 左 到 右 是 ， 

第 一 项 ， 加 锁 信 息 ， 有 * 表示 这 个 文件 加 锁 ， 只 能 读 ， 不 能 对 它 进行 修改 ; 

第 二 项 ， 文 件 类 型 码 ， 它 的 意义 见 表 人 1-1 

第 三 项 ， 文 件 所 占 的 扇 区 数 ， 用 三 位 数字 表示 ， 文 件 至 少 占 一 个 扁 区 ， 即 使 空 的 正文 文 
件 也 占 一 个 扇 区 ， 它 存放 描述 该 文件 在 盘 上 所 占用 的 磁道 及 肩 区 位 置 的 道 / 扇 区 表 (T/S 表 )， 
对 一 个 非 空 文件 ， 至 少 占 2 个 扇 区 ， 如 果 一 个 文件 占用 的 凯 区 数 超过 255 个 ， 目 录 上 显示 的 
数目 是 扣除 了 256 后 的 长 度 ， 这 对 了 解 盘 空间 使 用 情况 有 些 影响 8 

第 四 项 ， 文 件 名 ， 其 规定 已 述 。 

在 汉字 信息 处 理 系 统 中 ， 其 管理 程序 及 数据 量 都 很 大 ， 用 户 可 以 经 常用 这 条 命令 了 解 空 
闻 使 用 情况 ， 当 磁盘 操作 过 程 中 出 现 “DISK FULL?， 可 以 借助 这 个 命名 查阅 文件 目录 ， 以 
删 去 不 需要 的 程序 或 数据 。 

汉字 系统 中 可 以 使 用 中 文 文件 名 ， 假 设 盘 上 有 一 个 打印 程序 ， 其 文件 名 为 “打印 ?， 另 有 
一 个 正文 文件 ， 如 教师 名 册 ， 其 文件 名 为 “名 册 ”。 

用 这 条 命令 打出 目录 如 下 : 

]CATALOG 

DISK VOLUME 254 

# 人 A 006 HELLO 

T 005 HUN1 

T 013 JS 
ee 下 009 名 册 

A 015 ZYI3 

B 034 ZI1 

A 006 打印 

3. SAVE 命令 

这 条 命令 把 存放 在 主 存 RAM 中 从 $800 开始 时 BASIC 用 户 程序 存 进 磁盘 , 主机 内 存 中 
的 程序 保留 。 

格式 ，SAVE 人，Vv][，Ss][，Dd] 

例如 ， 主 存 中 现 有 一 个 输入 汉字 报表 的 程序 ， 要 求 用 文件 名 “输入 " 存 到 盘 上 ，: 可 以 使 用 
命令 : 

SAVE 输入 

两 个 类 型 相同 的 程序 以 同一 个 文件 名 存放 ， 后 存 入 的 程序 将 把 先 存 入 的 程序 冲 去 ， 使 用 
5AYE 人 节令 要 特别 注意 这 一 点 。 如 果 类 型 不 同 ， 新 程序 不 会 被 存 入 磁 可 ， 并 产生 “FILE TY 
PR MISMATCH” 的 信息 。 
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如 果盘 片上 的 缺口 已 用 胶 纸 贴 没 ， 盘 片 写 保护 ， 执 行 SAVE 命令 得 到 “WRiTE PRO- 
TECTED? 信 息 。 

4。LOAD 命令 

这 条 命令 从 磁盘 上 读 出 一 个 程序 文件 装 入 到 内 存 RAM。 

格式 ，LOAD fF，Vv]E，Ss][，Dd] 

例如 ，LOAD 打印 

执行 这 条 命令 ， 把 原来 存在 RAM 中 的 程序 及 变量 全 部 清除 掉 ， 同 时 装 入 这 个 程序 。 

设计 一 个 汉字 信息 处 理 系统 常 采用 模块 结构 ， 使 系统 便于 维护 和 扩充 ， 为 了 解决 微机 内 
存 空 间 不 足 的 矛盾 ， 系 统 采用 了 覆盖 技术 ， 这 样 当 两 段 程 序 共用 变量 值 时 ， 必 须 把 第 一 段 中 
使 用 的 变量 保存 到 内 存 的 一 个 特定 区 域 ， 第 二 段 程序 装 入 时 ; 尽管 第 一 段 的 程序 及 变量 值 全 
部 被 清除 ， 但 保存 在 特定 区 域 的 共用 变量 值 没有 被 清除 。 这 就 要 求 第 二 段 程序 执行 时 ， 先 从 
这 个 区 域 恢复 这 些 变量 ， 然 后 继续 执行 ， 详 细 介绍 见 第 七 节 。 - 

如 果 命 令 中 指出 的 文 梓 名 不 在 目录 表 中 ， 显 示 “FILE TYPE MISMATCH ?错误 信息 。 

汉字 系统 中 ， 正 常 装 入 后 显示 中 文 BASIC 提示 符 ， 用 户 可 以 翻阅 修改 ， 或 执行 这 个 程 
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5。RUN 命令 

装 入 一 个 程序 文件 ， 并 执行 这 个 程序 。 

格式 ，RUN fL，Vv]j[C，9s]j[，Dd] 

例如 ，RUN 打印 ，D1 

RUN 既 可 用 直接 方式 调用 ， 也 可 用 间接 方式 调用 ， 两 段 程序 之 间 的 连接 常用 间接 式 的 
RUN 命令 ， 它 出 现在 第 一 段 程序 的 最 后 。 比 如 第 二 段 程序 为 打印 程序 ， 则 命令 使 用 如 下 ; 

PRINT CHR$(C4) 7RUN 打印 / 

汉字 处 理 系 统 的 程序 和 数据 量 往往 是 很 大 的 , 如 果 把 程序 和 数据 分 开 存放 在 两 个 软盘 中 ， 
程序 盘 放 在 1 号 驱动 器 ， 数 据 盘 放 在 2 号 驱动 器 ， 在 程序 中 可 以 交叉 用 间接 方式 调用 数据 及 
程序 文 侍 ,: 其 要 在 命令 中 等 进 相应 的 驱动 器 号 码 数 就 可 以 实现 。 

6。LOCK 命令 : 

这 条 命令 使 盘 片上 某 一 程序 得 到 写 保 护 。 

格式 ，LOCK f[，Vv]C，Ss][，Dd] 

例如 ，LOCK 打印 ，D1 

执行 这 条 命令 后 在 打印 文件 目录 第 一 项 出 而 二 个 *， 表 示 这 个 文件 写 保护 ; 它 不 会 被 重 写 
或 清除 。 这 样 可 以 防止 意外 的 把 它 清除 或 被 其 它 文 件 覆盖 ， 如 果盘 片 保护 缺口 封 住 ，LOCK 
命令 不 能 执行 ， 当 文件 写 保护 时 ， 清 除 或 重 写 得 到 “FILE LOCKED? 信 息 。 

7。UNLOCRKE 命令 

取消 一 个 文件 的 写 保护 。 

格式 ，UNLOCRKE {f[，Vv][，Ss][，Dd] 

例如 ，UNLOCK HELLO _ 

执行 这 条 命令 后 ， 目 录 表 中 该 文件 目录 行 第 一 项 的 。 号 消失 , 可 以 对 这 个 HELLO 文件 
进行 修改 、 重 写 。 例 如 ， 

]UNLOCKR HELLO 

]CATALOG 


s 85 。 


DISK VOLUME 254 
A 006 HELLO 
T 005 HUN1 
T 013 JS 
# 下 009 名册 
A 015 ZYI3 
B 034 ZI1 
A 006 打印 
8。RENAME 
更 换 盘 上 某 个 文件 的 文件 名 。 
格式 ，RENAME 老 名 ， 新 名 
例如 ，RENAME JS， 教 授 
执行 这 个 命令 ， 把 存放 全 校 教授 名 贡 的 文件 “JS? 改 名 为 “教授 ?。 
]RENAME HUN3， 教 授 
]CATALOG 
DISK VOLUME 254 
*A 006 HELLO 
人 005 HUN1 
人 013 教授 
es 个 009 名 册 
A 015 ZYI3 
B 034 ZI1 
A 006 打印 
这 个 命令 对 程序 文件 、 正 文 文件 、 二 进 制 文件 均 起 作用 。 
执行 这 个 命令 时 ，DQOsS 不 检查 新 名 是 否 在 这 个 盘 上 已 经 用 过 ， 所 以 ， 如 果 新 名 已 在 起 
片上 ， 将 得 到 两 个 名 字 相 同 的 文件 。 
若 文件 写 保 护 ， 命 令 不 起 作用 。 
9。DELETE- 命 令 
清除 盘 上 某 个 文件 。 
格式 ，DELETE f 红 ，Vv][，Ss][，Ddj] 
例如 ，DELETE HUN1 
执行 这 个 命令 后 ， 盘 上 HUN1 文件 被 清除 ， 目 录 随 之 被 清除 。 
]DELETE HUN1 
]CATALOG 
DISK VOLUME 254 
*A 006 HELLO 
T 013 教授 
sa 个 009 名 册 
A 015 ZYI3 
B 034 ZIl1 


.86 ， 


A 006 打印 

如 果 文 件 写 保 护 ， 执 行 DELETE 命令 出 现 “FILE LOCKED” 信 息 。 

10。VERIEY 命令 

检查 磁盘 中 某 个 文件 是 否 完整 。 

格式 ，VERIFY f[，Vv][，Ss][，Dd] 

例如 ，VERIFY 打印 

由 于 DOS 将 一 个 文件 写 入 每 一 个 扇 区 时 ， 计 算 存 在 一 个 肩 区 内 的 字符 个 数 ， 称 为 校 验 
和 ， 并 存在 这 个 扇 区 中 ， 当 使 用 VERIFY 命令 时 ，DOS 重新 计算 这 个 校 验 和 ， 并 与 存在 这 
个 扇 区 中 的 校 验 和 比较 。 如 果 正 确 ， 系 统 返 回 BASIC 状态 ， 如 果 两 个 数值 不 同 ， 显示“I/]/O 
ERROR” 的 错误 信息 。 

11。MAXFILES 命令 

DOS 3.3 系统 最 多 同时 可 以 处 理 16 个 文件 ， 这 个 命令 指定 DOS 可 同时 处 理 最 多 的 文 
件数 。 

命令 格式 ，MAXFILES n 

其 中 为 1 一 16 间 的 整数 ， 如 果 超 过 了 这 个 范围 ， 将 显示 出 错 信息 。 

例如 ，MAXEFILES 8 指出 一 次 最 多 可 以 同时 打开 8 个 文件 。 

DOS 引导 后 ， 在 DOS 下 方 开 辟 了 一 个 约 1.75 K 的 文件 缓冲 区 ，DOS 为 每 个 文件 规 
定 595 个 字 节 的 缓冲 区 。 每 一 个 缓冲 区 由 各 为 256 字 节 的 读 、 写 缓冲 区 组 成 ， 剩 下 的 83 个 
字 节 用 来 存放 有 关 文 件 的 一 些 资料 ， 如 道 / 区 表 等 ， 见 图 4-3-1。 这 样 的 文件 缓冲 区 最 多 可 
存放 三 个 文件 。DOS 多 许 通 过 MAXFILES 命令 来 指定 更 大 的 文件 缓冲 区 ， 以 使 DOS 最 
多 同时 能 处 理 16 个 文件 。 这 些 缓冲 区 开辟 在 HIMEM 下 面 的 存 贮 区 域内 ，n 越 大 ， 作 为 组 
冲 区 的 内 存 空 间 越 大 ， 用 户 可 以 使 用 的 存 贮 空间 也 就 越 小 ， 可 见 增 大 文件 缓冲 区 是 以 减少 用 
户 可 使 用 内 存 空 间 为 代价 的 。 


$9000 一 ~- ”|-HIMEM 
汉字 组 字 区 域 
$ 9600 
文件 缓冲 区 
$ 9D00 
DOS 
$C000| 一 一 一 一 一 一 | 一 最 高 内 存 地 址 


IOGO 地 址 空间 


图 4-5-1 
如 果 要 全 用 这 条 命令 ， 一 定 要 在 执行 程序 或 将 程序 调 入 内 存 之 前 。 否 则 有 可 能 冲 掉 整 数 
BASIC 程序 或 破坏 APPLE SOFT BASIC 中 的 字符 串 。 
在 程序 中 使 用 这 一 愈 令 必 生 用 间接 式 ， 而 且 要 放 在 程序 的 最 前 面 ， 否则 ， 它 将 使 COUTO、 
GO5UB 及 其 它 指令 产生 人 不 正 错 的 功能 。 
10 PRINT CHR$(C4)37MAXEFILES 87 
MAXFEILES 命令 以 最 后 一 次 定义 的 na 值 生效 。 


如 果 打 开 的 文件 数 已 经 达到 了 定义 的 最 大 值 ， 不 再 有 可 用 的 文件 缓 冲 区 ， 但 使 用 者 又 执 
行 了 一 条 DOS 命令 ， 则 显示 “NO BUFFERS AVAILABLE 信息 。 

12。MON 命令 万 NOMON 命令 

这 是 一 条 监督 指令 ， 它 监督 主机 与 磁盘 间 交 换 的 信息 及 磁盘 操作 命令 ， 通 常 这 既 信 息 及 
命令 是 不 会 显示 在 屏幕 上 的 ， 这 将 给 程序 的 调试 带 来 困难 ，DOS 设置 这 条 命令 可 以 帮助 用 
户 检 查 程 序 中 的 错误 。 

(1) MON 命令 

格式 ，MON [C][，IJ[，O] 

人 参数 指出 所 要 显示 的 信息 类 型 。 

C ”表示 监督 磁盘 操作 命令 ; 

TI 表示 显示 从 磁盘 输入 到 主机 内 存 的 信息 ; 

O ”表示 显示 从 主机 内 存 和 输出 到 磁盘 的 信息 。 

这 些 参数 可 以 依照 任何 顺序 排列 或 任何 组 合 方式 使 用 ， 不 过 最 少 要 有 一 个 参数 出 现在 命 
令 中 ， 否 则 这 个 命令 将 不 被 执行 。 三 个 参数 组 合成 下 面 七 种 可 能 的 监督 形式 : 

命令 监督 功 能 

MON C 监督 磁极 操作 命令 

MON 监督 从 磁盘 输入 到 主机 内 存 的 信息 

MON O 监督 从 主机 内 存 输出 到 磁盘 的 信息 

MON C，] 同时 监督 磁盘 操作 命令 及 磁盘 输入 到 内 存 的 信息 

MON C，O 同时 监督 磁盘 操作 命令 及 内 存 输出 到 磁盘 的 信息 

MON 9O，]L 同时 监督 磁盘 输入 到 内 存 及 内 存 输出 到 磁盘 的 信息 

MON C,TO 同时 监督 磁盘 操作 命令 ， 磁 盘 输入 到 内 存 以 及 内 存 输 出 到 磁盘 的 信息 。 

(2) NOMON 命令 

NOMON 命令 是 专 为 取消 MON 命令 而 设置 的 ， 

格式 ， NOMON[C]J[，I][，0] 

参数 的 含义 及 用 法 和 MON 命令 中 的 规定 相同 。 

MO 命令 执行 后 ，- 其 功能 一 直 有 效 ， 直 到 执行 了 NOMON ，INT 或 了 P 命令 为 止 , 重 
新 启动 ， 按 RESET 键 或 重新 加 载 时 ，MON 命令 也 被 取消 。 

如 果 执 行 了 MON 1I，O，C 命令 后 又 输入 NOMON O， 将 使 内 存 输出 到 磁盘 的 信息 不 
受 监 督 ， 也 即 不 显示 出 来 ， 至 于 由 磁盘 输入 到 内 存 的 信息 及 DOS 命令 仍然 显示 在 屏幕 上 。 


第 四 节 中文 自动 启动 程序 


第 二 章 中 曾 说 过 每 次 由 英文 BASIC 进入 中 文 BASIC 都 必须 重复 输入 PR#CN 命令， 
如 果 把 下 面 的 中 文 自 动 启动 程序 加 在 用 户 程序 的 最 前 面 ， 就 可 以 在 英文 BASIC 下 直接 装 入 
执行 汉字 信息 处 理 程序 ， 或 在 开机 启动 后 使 APPLE TI 直接 进入 汉字 系统 。 
中 文 自 动 启动 程序 清单 
10 HIMEM:36864 
20 PO 玫 E 37984,0 
30 PR##3 


。 88 ，。 


40 PRINT 2 7 
50 POKE 43603，3 
60 POKE 43604，192 +3 
70 POKE 43605，48 
80 POKE 43606，192+3 
90 POKE 54，189 
100 POKE 55，158 
110 POKE 56，129 
120 POKE 57，158 
130FOR I=1TO 15 
140 GET Af 
150 NEXT 1 


一 、 由 英文 BASIC 直接 进入 中 文 BASIC 


具体 步 又 如 下 : 

(1) 在 英文 BASIC 下 输入 PR 夫 CN 命令 使 机 器 进入 中 文 BASIC; 

(2) 在 汉字 系统 下 输入 上 述 中 文 自动 启动 程序 ， 并 从 160 语句 开始 输入 汉字 信息 处 理 的 
用 户 程序 8 

(3) 输入 “9AYVE A” 命 令 ，A 为 用 户 程序 文件 名 ， 把 整个 程序 作为 一 个 用 户 文件 存放 到 
磁盘 上 。 

以 后 每 次 要 使 用 这 个 用 户 程序 时 ， 只 要 在 英文 BASIC 下 输入 “RUN A?” 命 令 ， 机 器 就 
会 自动 进入 中 文 BASIC， 屏 幕 上 先 出 现 第 二 章 第 一 节 所 示 的 字幕 ， 紧 接着 自动 转 去 执行 用 
户 程序 。 


二 、 主 机 启动 后 直接 进入 中 文 APPLE SOFT BASIC 


由 于 APPLEI PLUS 微机 上 配 有 “自动 启动 ROM?， 在 初始 开机 通电 即 所 谓 冷 局 动 
时 ， 如 果 系 统 配 有 软盘 驱动 器 ， 并 且 在 其 中 放 入 了 经 过 初始 化 的 盘 片 ， 那 未 监控 系统 会 自动 
启动 软盘 驱动 器 ， 进 入 盘 片上 的 招呼 程序 (HELLO 程序 )， 所 以 , 我 们 可 以 把 中 文 自动 启动 
程序 作为 HELLO 程序 ， 这 样 ， 每 次 只 要 把 盘 片 放 进 1 号 软盘 机 ， 再 打开 电源 ， 就 会 目 动 装 
入 并 执行 中 文 自 动 启 动 程序 。 直 接 进 入 中 文 BAS5ICL。 

如 果 用 户 希望 在 主机 启动 后 直接 进入 中 文 信息 处 理 的 某 一 用 户 程 序 ， 可 以 采用 下 面 两 种 
方法 ， 

(1) 把 中 文 自动 启动 程序 放 在 用 户 程 序 的 最 前 面 ， 然 后 把 整个 程序 作为 HELLO 程序 ， 
这 样 每 次 主机 启动 后 直接 进入 中 文 BASIC， 并 且 紧 接着 执行 用 户 程序 。 

(2) 在 中 文 自动 启动 程序 后 面 加 一 条 调用 用 户 程序 的 DOS 命令 ， 再 把 整个 程序 作为 
HELLO 程序 。 

具体 步骤 如 下 ， 

(1) 把 DOS 3.3 盘 片 放 进 1 号 软盘 器 ， 局 动 主机 ;8 

(2) 输入 NEW 命令 ; 

(3) 输入 INIT HELLO 命令 对 新 盘 片 进行 初始 化 ,或 输入 了 R#CN 后 ， 使 用 INIT 

。89 。 


曙 


HELLO 命令 初始 化 盘 片 ; 

(4) 输入 汉字 处 理 的 用 户 程序 ， 假 设 用 户 程序 文件 名 为 “HZ”， 使 用 *SAVE HZ* 命 令 把 
用 户 程序 存 贮 到 软盘 上 

(5) 输入 NEW 命令 ， 清 除 用 户 程 序 ; 

(6) 输入 中 文 自 动 启动 程序 ， 接 着 再 输入 一 个 语句 160 PRINT CHR$(4)57RUN HZ 

(7) 输入 SAVE HELLO 命令 ， 整 个 程序 作为 HELLO 程序 存 贮 在 软盘 上 。 这 一 步 可 
以 在 英文 BASIC 下 完成 ， 但 如 果 使 用 汉字 作为 用 户 程序 文件 名 ， 这 一 步 只 能 在 中 文 BASIC 
下 完成 。 

以 后 每 次 使 用 这 个 用 户 程 序 时 ， 只 要 把 这 个 盘 片 放 入 1 号 软盘 器 , 再 打开 电源 , 就 会 自动 
进入 汉字 系统 ， 显 示 上 面 所 述 的 字幕 ， 由 于 DOS 装 入 到 主 存 , 所 以 执行 160 这 一 名 时 ，DOS 
操作 系统 把 软盘 上 的 用 户 程序 HZ 装 入 到 主 存 ， 并 执行 这 个 用 户 程序 。 

这 二 种 方法 给 用 户 使 用 程序 提供 了 方便 。 

例如 ， 下 面 的 程序 作为 HELLO 程序 ， 开 机 后 进入 汉字 系统 ， 先 显示 “汉字 报表 处 理 程 
序 ” 的 中 文字 幕 ， 并 装 入 用 户 程序 (程序 文件 名 为 HZ)， 这 时 屏幕 上 显示 的 中 文字 幕 一 直 停 
留 到 用 户 程 序 装 入 完成 。 

10 HIMEM :36864 

20 PO 上 KE 37984，0 

30 PR 共 3 

40 PRINTIT 2 7 

50 PORKE 43603，3 

60 PO 上 KEE 43604，192 +3 
70 POK 上 KE 43605，48 

80 PO 了 KE 43606，192 +3 
90 PO 了 KE 54，189 

100 PO 玫 下 55，158 

110 POKE 56，129. 

120 PO 上 人 E 屯 57，158 . 

130 FOR I=17TO 15 

140ETA$  - 

150 NEXT 

160 CALL 49941 

170 POKE 215，4:POKE 214，10:PRINT 7 汉字 报表 处 理 程序 ? 

180 CALEL 49944 

190 D$= CHR$(4):PRINT D$;7RUN HZ7 


第 五 节 正文 文件 


汉字 信息 处 理 系统 中 ， 数 据 在 整个 系统 中 占有 重要 的 地 位 ， 它 不 仅 信 息 量 大 ， 而 且 经 常 
反复 被 使 用 ，DO9s 操作 系统 建立 了 一 个 文本 文件 〈 常 称 正文 文件 ) 来 保存 这 些 信息 。 正 文 文 
件 有 两 种 ， 一 种 志 顺 序 文件 ， 另 一 种 是 随机 文件 。 在 磁盘 目录 索引 中 ,它们 都 以 字母 了 工作 为 标 

。90 。 


识 ， 顺 序 文件 和 随机 文件 的 读 写 方式 不 同 ， 顺 序 文件 一 般 以 顺序 方法 读 写 ， 随 机 文件 可 作 随 
机 人 存 取 ， 即 可 以 从 任 一 指定 的 记录 处 开始 读 写 ， 所 以 随机 文件 用 于 须 快速 存 取 或 数据 要 经 常 
变动 的 处 理 过 程 。 

正文 文件 不 同 于 程序 文件 ， 它 不 能 用 LOAD、SAYVE 命令 存 取 ，DOS 操作 系统 为 正文 
文件 规定 了 读 写 步骤 ， 读 写 之 前 必须 先 打开 文件 ， 读 和 写 之 后 要 关闭 文件 ， 并 提供 了 一 套 读 写 
命令 ， 它 们 是 ， 

UEEN、CLOSE、READ、WRITE、APPEND、POSITION、EXEC。 

其 中 命令 OFEN、AEFEEPEND、READ、WRIITE、EO9SITION 只 能 用 间接 方式 调用 ，CLO 
SEEXEC 可 用 立即 方式 调用 。 

除了 这 些 命令 外 ， 其 它 的 DOS 命令 还 有 ， 

LOCKE、UNLOCKE、DELETE、RENAME、 MON NOMON、VERIFEY、CATALOG。 

在 正文 文件 上 和 在 程序 文件 上 一 样 使 用 。 

OPEN CLOSE、READ、WRITE 及 POSITION 命令 在 顺序 文件 和 随机 文件 中 均 可 使 
用 ， 但 用 法 略 有 不 同 。 

顺序 文件 和 随机 文件 都 以 记录 方式 存 贮 信息 ， 每 个 记录 间 书 RETURN 分 隔 ， 顺 序 文件 
中 记录 是 不 宇 长 的 ， 随 机 文件 中 记录 是 定 长 的 ， 信 息 均 以 ASCH 码 方式 存 贮 。 


顺序 文件 的 每 个 记录 可 以 由 1 一 32767 个 字符 组 成 ， 每 个 字符 都 以 ASCEI 码 方式 存 贮 ， 
各 个 记录 间 用 RETURN 分 隔 。 
例如 : “AITLE 、TEXI 、 了 于 三 作为 三 个 记录 ， 在 顺序 文件 中 存 贮 形式 如 图 45-1。 


字符 [|APPLE2 TEXT2FIELE2-… | 


ASCI 码 1658080766913846988841370737669130000…00 | 
图 4-5-1 


中 文 信息 以 中 文字 母 的 ASC 码 方式 存 贮 。 
例如 : “部 门 ", “姓名 ”作为 两 个 记录 ， 存 贮 形式 如 图 4-5-2。 


中 文字 母 | 下 口 弓 中 日 号 志 女 人 竹 平 一 妃 世 日 。 | 


ASCI 码 179726 蕊 6C32616E32137668716D326E6972321300| 


4-5-2 


顺序 文件 每 个 记录 可 以 有 不 同 的 长 度 ， 如 “姓名 ?” 占 10 个 字 节 ，“ 部 门 占 9 个 字 节 (其 中 
RETURN 占 一 个 字 节 )， 记 录 与 记录 之 间 不 留 空 除 。 

1. 顺序 文件 的 打开 与 关闭 

打开 、 关 闭 顺 序 文件 的 命令 是 OFEN 和 CLOSE 命令 。 

(1) OPEN 命令 


格式 ，OPEN  f 纺 ，Vv][，9s][，Dd] 

OPEN 命令 打开 一 个 顺序 文件 ， 如 果 是 个 新 文件 ， 则 这 个 命令 建立 一 个 新 文件 ,如果 
文件 已 经 被 打开 ， 则 命令 先 把 这 个 文件 关闭 ， 再 打开 ， 并 把 文件 的 定位 指针 指向 这 个 文件 的 
首 字 节 ， 同 时 OPEN 命令 在 内 存 的 文件 缓冲 区 中 为 文件 f 建 立 595 字 节 的 工作 区 (如 果 
MAXFILES 命令 指定 的 文件 个 数 大 于 3 个 ， 这 个 工作 区 可 能 建 在 内 存 中 汉字 组 字 区 域 的 下 
面 )， 并 指定 以 后 读 、 写 命令 所 需要 的 扩充 捅 座 号 码 及 驱动 器 号 码 。 

(2) CLOSE 命令 

格式 ，CLOS9SE [人 

CLOSE 命令 关闭 一 个 文件 ， 并 把 OPEN 命令 申请 的 工作 区 归还 主机 ， 如 果 没 有 指 完 
f，DOS 关闭 所 有 处 于 打开 状态 的 文件 ， 除 了 被 EXEC 命令 支配 的 文件 。 

2. 顺序 文件 的 读 写 命令 

对 已 用 OPEN 命令 打开 的 文件 ， 可 用 WRITE 和 READ 命令 进行 读 写 操作 。 

(1) WRIIE 命令 

格式 ， WRITE f，Bb] 

WRITE 命令 指定 文件 的 写 操作 ， 写 入 文件 节 的 所 有 信息 在 PRINT 语句 中 指明 ，DOS 
把 PRINT 语句 中 的 信息 写 到 OPEN 命令 申请 的 工作 区 ， 然 后 再 从 工作 区 写 到 盘 上 ,工作 
区 和 磁盘 之 间 的 信息 交换 以 页 交换 方式 进行 (一 页 为 256 个 字 节 )。 当 工作 区 中 写 满 256 个 字 
节 ，DOS 将 这 一 页 写 入 盘 内 未 经 分 配 的 扇 区 ， 如 果 工 作 区 中 未 写 满 256 个 字 节 ，DOS 读 到 
CLOSE 命令 ，DOS 将 信息 写 入 一 个 扇 区 ， 并 以 0 补足 256 个 字 节 。 汉 字 信 息 直 接 每 在 
PRINT 语句 中 。 

顺序 文件 写 入 过 程 中 ， 文 件 的 定位 指针 依 序 递增 ， 写 入 的 信息 不 在 屏幕 上 显示 。 

B 参数 表示 从 文件 的 第 b 字 节 开始 写 入 ( 首 字 节 即 第 0 字 节 )。 

WRITE 功能 在 任 一 DOS 命令 或 INPUT 语句 执行 时 失效 。 

WRITE 命令 只 能 以 间接 方式 调用 。 

(2) 人 READ 命令 

格式 ，READ 拒 ，Bbj 

READ 命令 定义 读 文 件 操作 ， 从 文件 f 中 读 取信 息 用 INPUT 语句 。 执 行 INPUT 语 
句 ，DOS 从 磁盘 上 指定 的 文件 f 中 赎 一 个 记录 到 工作 缓冲 区 , 再 把 信息 指定 给 INPUT 语句 
中 的 变量 。 - 

B 参数 指定 从 文件 的 第 b 字 节 开始 读 取 ，READ 命令 也 只 能 以 间接 方式 调用 。 

3。 顺序 文件 的 写 入 和 读 出 

(1) 顺序 文件 的 写 入 ， 需 要 顺序 执行 以 下 的 命令 序列 ， 

OPEN 打开 文件 

WRIIE 指定 写 操 作 

PRINT 1 


; ERINT 语句 中 包含 要 写 入 的 信息 
PRINT 


CLOSE 关闭 文件 
例 1 建立 文件 EXA1， 并 写 入 字符 串 “APPLE?, “TEXT”, “FILE9 
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10 REM EXA1 

20 D$= CHR$(C 7) 

30 PRINT D$; *OPEN EXA1lw 

40 PRINT D4$.ZWRITE EXA17 

50 PRINT 74PPLEY7 

60 PRINT ZTEXT7 

70 PRINT ^FILE7 

80 PRINT D$3 7 CLOSE EXA17 

90 END 

文件 EXA1 中 有 三 个 记录 ， 其 存 贮 形式 如 图 4-5-1 所 示 ，RETURN 字符 敌 宗 紫 个 
上 RINT 语句 中 字符 的 后 面 。 

如 果 需 要 指定 扩充 揪 座 号 码 Ss, 驱动 器 号 码 Dd, 及 盘 片 卷 号 VY 参 数 , 只 要 在 第 一 个 DO5 
命令 ， 即 OPEN 命令 里 指出 ， 这 些 参 数 必须 写 在 双 撒 号 内 ， 语 名 30 修改 如 下 ， 

30 PRINT D4;2“OPEN EXA1，V123，S6，D1/ 

者 在 标号 50，60 的 PRINT 语 名 后 面 使 用 分 号 ， 如 下 程序 所 示 # 

10 REM EXA2 

20D$= CHRd4(4) 

30 PRINT D$;7OPEN EXA27 

40 PRINT D4;7WRITE EXA27 

50 PRINTZAPPLE7; 

60 PRINTZTEXT4; 

70 PRINTZFILEY 

80PRINT D$;7CLOSE EXA27 

90 END 

则 文件 EXA2 只 有 一 个 记录 ， 记 录 中 存放 了 3 个 字符 串 串 接 所 形成 的 新 字符 串 , 其 存 贮 
形式 如 图 全 5-3 所 示 。 这 是 因为 在 了 PRINT 语句 中 后 面 出 现 分 号 时 不 播 入 REIURN 字符 。 


[AFEPTLETEXTTFTILIE~”” | 


1658080766984698884707376691300000000 | 
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(2) 顺序 文件 的 读 出 需要 上 顺序 执行 以 下 的 命令 ; 
OFEN 打开 文件 
了 了 EAD 指定 读 操 作 
INPUT . 
| 从 盘 上 读 出 的 信息 输入 到 变量 或 数组 中 
INPUT j 
CLOSE 关闭 文件 
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介 2 试 读 取 例 1 所 建立 的 EXA 1 文件 。 

100 REM READ FILE EXA1 

110 D$= CHR$(C4) 

120 PRINT D$ OPEN EXA17 

130 PRINT D4; "READ EXA1 

140 INPUT Aj 

150 INPUT B$ 

160 INPUT C$ 

170 PRINT D$7CLOSE EXAIL 

180 上 END 

学 符 串 “APPLE?、“TEXT?“FILE? 分 别 读 到 字符 串 变量 A$、B$、C$ 中 。 

读 取 卫 XA2 文 件 的 程序 如 下 ， 

110 REM READ FILE EXA2 

120 D$ = CHR$(C4):PRINT D$ 2 OPEN EXA27 

130 PRINT D$3; READ EXA27 

140 INPUT AS$ 

150 PRINT D$ CLOSE EXA27 

160 END 

Aj$ 中 为 字符 串 /APPLE TEXT FILEY 

如 果 用 读 取 文件 卫 XAl 的 程序 读 取 文 件 EXA2， 将 显示 错误 信息 ， 

END OF DATA 

BREAK IN 150 

并 中 止 执行 读 程 序 ， 这 是 因为 语句 140 读 出 EXA2 仅 有 的 一 个 记录 ， 所 以 执行 语句 150 
时 ， 没 有 数据 可 读 了 。 

但 用 读 取 卫 XA 2 的 程序 可 以 读 EXA 1 文件 ， 这 时 A$ 中 为 “APPLE”， 屏 幕 上 显示 
了 入 工 A”， 表 示 文 件 中 还 有 数据 。 

上 述 读 写 程序 执行 时 ，DOS 命令 、 输 入 磁盘 的 数据 及 从 盘 上 读 取 出 的 数据 都 不 会 显示 
在 屏幕 上 ， 为 了 监视 读 写 过 程 ， 可 以 使 用 监督 命令 MON C，I，O。 

例如 ， 在 例 1 程序 执行 之 前 ， 打 入 MON C，I，O 命令 ， 然 后 用 RUN 命令 启动 执行 ， 
屏幕 上 将 显示 

OPEN EXA1 

WRITE EXA1 

APPLE 

TEXT 

FILE 

CLOSE EXAI1 

然后 输入 NOMON C，I，QO 命令 撤消 监督 。 

也 可 以 在 程序 中 使 用 MON 命令 ， 如 把 例 2 程序 修改 如 下 ， 

100 REM READ FILE EXA1l 

110 D$= CHR$C4):PRINT D$ 7MON C，I，O7 
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120 PRINT D$;7OPEN EXA17 

130 PRINT D$3;7READ 瑟 XAL 

140 INPUT Ah 

150 INPUT B$ 

160 INPUT C$ 

170 PRINT D$ 7CLOSE 也 XA17 

180 PRINT D$; ZNOMON C，I，QOY7 

190 END 

执行 这 个 程序 ， 屏 幕 上 将 显示 : 

OPEN EXA1 

了 R 丘 AD EXA1 

?APPLE - 

? 工 匡 入 工 

?FIL 也 

CLOSE EXA1 

NOMON C，I，O 

通常 读 、 写 程 序 中 ，INPUT 语句 和 PRINT 语句 中 的 变量 个 数 必 须 相 同 ， 变 量 类 型 必 
须 一 一 对 应 ， 并 按 相同 的 顺序 读 写 。 

例如 ， 建 立 EXA3 文件 的 程序 如 下 ， 

10 INPUT A$4 :INPUT B$:INPUT C 

20 D$= CHR$(C4):PRINT D$ 7OPEN 下 XA37 

30 PRINT D9$7WRITE EXA37 

40 PRINT A$:PRINT B$:PRINTC 

50 PRINT D$;7CLOSE EXA37Y 

60 END 

读 卫 XA3 文件 的 程序 如 下 : 

100 PRINT D$; 7OPEN 卫 XA37 

110 PRINT D$;7READ 已 XA37 

120 INPUT A$:INPUT B$:INPUT C 

130 PRINT D9$; CLOSE 了 上 又 A37 

140 PRINT A$:PRINT B$:PRINT C 

150 上 上 ND 

逗号 不 能 出 现在 要 写 入 的 字符 串 中 。 

上 例如 输入 “APPLE，TEXE? 到 A$ 中 ， 则 机 器 将 显示 信息 ， 

? EXTRA IGNOROD( 但 不 影响 B$、C 的 输入 )。 

当 读 文 件 EXA3 时 ，A$ 中 仅 有 “APPLE?， 即 “，? 及 它 的 后 面 信 息 丢 失 了 ， 但 B$、C 
中 仍 有 原 输入 的 信息 。 

4。 中文 信 息 的 读 写 

中 文 信息 是 作为 字符 串 存 贮 在 顺序 文件 中 。 

例 3 输入 一 个 报表 的 表 头 、 副 表 头 、 报表 栏 标题 及 各 行 ， 并 建立 一 个 顺序 文件 ， 文件 
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名 可 自由 选取 。 
5 REM ** 输 入 报表 #* 
10 CALL 49941:E$= CHR$(C4) 
20 INPUT / 表 头 人 Af$ 
30 INPUT “ 副 表 头 人 4 B4y 
40 INPUT 7? 栏 数 ， 行 数 ,";N，M: DIM C$CN):DIM D$(M，N) 
50 FOR I=1TON 
60 PRINT 7 第 38“ 栏 标题 ? 
70 INPUT “CC$(T) 
80NEXT IT 
90 FOR I=1TO M 
100 PRINT “第 ;DB 7 行 / 
110 FOR J=1 TON 
120 PRINT C$(J); 
130 INPUT2 D$CI，J) 
140 NEXT j 
150 NEXT 1 
200 人 EM  ** 建 立 报表 文件 we。 
210 INPUT 7 文件 名 :3F$ 
300 PRINT E$;2OPEN Ff 
330 PRINT E$;7WRITE FS$ 
340 PRINT A$; PRINT B$:PRINT N:PRINT M 
350 FOR I=1 TO N:PRINT C$(D:NEXT 1 
360 FOR 1=1 TO M:FOR J=1TO N:PRINT ne(I，J):NEXT J:NEXT 1 
370 PRINT E$;“CLOSE F$ 


380 上 END 
报表 栏 数 N 及 行 数 M， 必 须 写 入 文件 ， 以 便 在 读 取 报 表 各 栏 标题 以 及 各 报表 行 时 作为 特 
环 变 量 的 终 值 。 


400 REM  ** 读 报表 文件 se 

410 PRINT E$;yOPENZ; Ff 

420 PRINT E$; “READ FS$ 

430 INPUT A$，B$，N，M 

440 FOR IT=1TO N:INPUT C4(D:NEXT 1 
450 FOR I=1TO M:FOR J=1TO N:INPUT D$(I，J):NEXT J;NEXT 1 
460 PRINT E 和 ;CLOSE F 

480 END 

名 要 监视 读 写 过 程 , :可 加 入 语句 

290 PRINT$37MON C，I，OY 

470 PRINT E$;7NOMON C，I，0y 

若 允 许 用 户 选 择 参 数 Vv、Ss 及 Dd , 可 加 入 语句 ! 
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220 INPUT "扩充 插座 号 :% S 

230 INPUT "驱动 器 号 , D 

240 INPUT / 盘 片 号 :2 

打开 文件 时 ， 必 须 指 定 这 些 参数 ， 即 语句 300、410 修改 如 下 ， 

300 PRINT 了 $ 7OPEN2Z FE 7，92 337，D2D37，VZ TV 

410 PRINT E9$4;7ZOPEN2 FF9$ 7， 52453957，D2 Di V2V 

如 果 用 户 需 要 修改 文件 ， 修 改 后 重 写 入 时 会 把 存在 文件 中 原来 的 信息 覆盖 掉 ， 所 以 写 入 
的 信息 至 少 应 当 与 原文 件 中 的 信息 一 样 长 ， 否 则 重 写 后 ， 文 件 后 面 会 遗留 原文 件 的 信息 。 

例如 ， 原 文件 中 有 两 个 记录 “姓名 ”, “出 生年 月 ”, 若 修改 为 “姓名 ”, “年 龄 "后 重 写 , 结果 
如 下 (为 方便 用 英文 形 码 表 示 ): 

原文 件 。 VHQML NIR 2UU HQML 0OQ B。 

写 入 内 容 VHQMLNIR， -OoOQ OINI，。 -~ 

结果 文件 _VHQM NIR， .OOQL OINI，。 B，。 

为 了 消除 后 面 的 无 用 信息 “，B,，<。/”， 可 在 存 入 新 的 信息 之 前 先 将 原 有 信息 清除 掉 ， 在 
OPEN 命令 之 前 使 用 DELETE 命令 可 以 达到 这 个 目的 ， 但 是 ， 对 一 个 新 建立 的 文件 执行 
DELETE 命令 ， 由 于 文件 不 存在 ， 将 得 到 “FILE NOT FOUND” 的 错误 信息 。 为 了 保证 
程序 能 正确 执行 ， 必 须 在 DELETE 命令 之 前 另外 加 一 个 OPEN 命令 。 

300 了 上 RINTI 卫 $ 7OPEN2 下 7，92 957，D2D37，V2V 

310 PRINT 卫 $ “了 DEE 革 ET 玫 3 F$ 

320 PRINT E$;7OPEN4Z Ff 

第 一 个 OPEN 命令 当 Ff$ 不 存在 时 ， 建 立 这 个 文件 。 

不 论 F$ 文件 何 时 被 建立 ，DELETE 命令 都 能 把 这 个 文件 清除 掉 。 

第 二 个 OPEN 命令 将 建立 一 个 空 文件 。 

5。APPEND 命令 

使 用 DOS 提供 的 APPEND 命令 ， 可 以 在 顺序 文件 中 增加 信息 。 

把 一 个 报表 写 入 顺序 文件 并 关闭 这 个 文件 后 ， 若 要 再 次 打开 它 , OPEN 命令 把 文件 的 定 
位 指针 指向 文件 的 首 字 节 。 如 果 我 们 要 在 这 个 文件 的 后 面 增 加 一 些 报表 项 ， 可 以 按 顺 序 把 整 
个 报表 都 读 出 来 ， 然 后 再 扩充 ， 但 是 ， 对 于 信息 量 大 的 文件 需要 花费 很 多 时 间 ， 且 受 主机 内 
存 容量 的 限制 。APPEND 命令 可 以 把 文件 的 定位 指针 指向 文件 的 最 后 一 个 字 节 的 下 一 个 位 
置 ， 这 样 可 方便 地 进行 扩充 。 

格式 ，APPEND 拒 ，9.J[L[，YVJJL，D] 

APPEND 命令 打开 一 个 文件 ， 并 使 文件 的 定位 指针 指向 文件 的 最 后 一 个 字 节 的 下 一 个 
位 置 。 

APPEND 不 能 象 OPEN 命令 那样 建立 一 个 新 文件 ， 如 果 APPEND 要 打开 的 文件 不 
存在 ， 将 得 到 “FILE NOT FOUND? 的 错误 信息 。 

APPEND 命令 后 只 能 眼 WRITE 命令 ， 不 能 跟 READ 命令 ， 如 果 用 了 READ 命 令 ， 
会 出 现 错误 信息 “END OF DATA“” 。 

例 4 建立 一 个 顺序 文件 ， 写 入 学 生成 绩 表 。 

成 绩 表 格 以 DATA 语句 建立 ， 包 括 栏 标题 ， 并 以 空格 作为 表格 结束 标志 ， 程序 如 下 ， 

10 INPUT /文件 名 :FE$ 
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20E$= CHR$(C4):PRINT PE$ 7OPEN4 F$ 
30 PRINT E$;ZDELETEZ F$ 
40 PRINT E$; “OPEN FS 
50 READ A$，B$，Gy 
60 IFA$= ZUZTHEN 90 
70 PRINT E$ WRITE F$ 
80 PRINT A$:PRINT B$:PRINT C$:GOTO 50 
90 PRINT E$; "CLOSE2 Fg 
100 DATA “姓名 7， /学 号 7， “成 绩 4 
110 DATA “ 王 林 /，71235127，7857 
120 DATA “7 陈 红 /，71235147，7Z90/ 
130 DATA 7/ 李 明 /，71235167，7757 
140DATA 7 7，7 UV ， /， 
.150 END 
在 原 有 顺序 文件 之 后 ， 写 入 新 数据 ， 新 数据 以 DATA 语句 建立 ， 程 序 如 下 ， 
10 INPUT 7 文件 名 :2 FS$ 
20E$= CHR4(C4):PRINT E$:7APPEND7ZF8 
30READ A$，B$，Cf 
40IF A$=7 2 THEN 70 
50 PRINT E$;iWRITE2 F$ 
60 PRINTA$:PRINT B$:PRINT C$:GOTO 30 
70 PRINT E$; “CLOSE F$ 
80 DATA “ 张 玲 /,/1235187，7827 
90 DATA 7/ 林 青 /，7Z1235207，7927 
100 DATA /7 ， 7， ， ! 
110 END 
例 5 上 例 中 如 果 数 据 以 INPUT 语 名 输入， 并 人 允许 用 户 在 任意 一 行 输入 结束 后 中 止 输 
入 。 
程序 如 下 ， - 
10 INPUT 7 文件 名 :2 FS 
20 E$= CHR$(4):PRINT E$;2OPEN FS$ 
30 PRINT E$ 2“DELETE F$ 
40 PRINT E$;7OPENZ Ff 
50 PRINT “输入 姓名 ， 学 号 ， 成 绩 : 4 
60 INPUT 7 A$，B$，C$ 
70 PRINT E$ WRITE FS$ 
80 PRINT A$:PRINT B$:PRINT C$ 
90 PRINT Eg$ 
100 PRINT “继续 输入 ? 0: 结 束 / 
110 GET U$:IF U$< > 0 THEN 50 
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120 PRINT:PRINT E$; CLOSE 当 T$ 
.130 上 END 

值得 注意 的 是 , 执行 语句 100 时 , 将 输出 提示 信息 。 在 WRITE 命令 执行 之 后 , 它 将 被 存 到 
文件 中 。 为 了 避免 这 一 现象 ， 在 每 次 守 入 A$、B$.C$ 之 后 ， 必 须 使 得 WRITE 命令 失效 ， 
任何 DOs 命令 都 能 达到 这 一 目的 ， 语 名 90 就 是 为 此 目的 而 设置 的 。 

本 程序 允许 用 户 在 任意 一 行 输入 后 中 断 输 入 。 

者 要 在 文件 中 加 入 新 数据 ， 程 序 如 下 ; 

10 INPUT 7 文件 名 :2 FS$ 

20$= CHR$(C4):PRINT E$;7APPEND2 F$ 

30 上 上 RINT “输入 姓名 、 学 号 、 成 线 : 2 

40 INPUT 2“ A$，B$，C$ 

50 PRINT E$; “WRITE F$ - 
60 PRINT A$; PRINT B$:PRINT Cf 

70 PRINT E$ 

80 PRINT “继续 输入 ? 0: 结 束 / 

90 GET U$:IF U$ 一 > /07 THEN 30 

100 PRINT:PRINT E$; CLOSEZ F$ 

110 END 

用 下 面 的 程序 读 出 这 个 文件 ， 你 可 以 看 到 新 数据 已 加 在 原文 件 的 最 后 ， 假 设 一共 写 入 6 
行 ( 包 括 标题 )。 

10 INPUT /文件 名 : 放 F$ 

20 E$ = CHR$(4):PRINT E$ 27OPENZ F$ 
30 PRINT E$; 7READ F$ 

40 FOR I=1TO6 

50 INPUT A$，B$，Cg 

60 PRINT AS$ 7 B 和 7 2 C$ 

70 NEXT 1 

80 PRINT E$ 7 CLOSE FS 

90 END 

5。 POSITION 命令 

利用 上 OSITION 命令 可 以 读 出 或 写 入 顺序 文件 中 任 一 段 记 录 的 信息 。 

格式 ，POSITION f[，Rp] 

其 中 Rp 表示 需要 读 、 写 的 记录 在 文件 中 与 当前 记录 的 相对 位 置 ， 如 果 P = 0, 则 从 当前 
所 在 的 记录 往 前 读 或 写 ， 如 果 P = 1， 则 从 当前 记录 的 下 一 个 记录 开始 读 或 写 ， 如 此 类 推 。 这 
个 命令 的 功能 是 把 记录 的 指针 从 当前 所 指 的 记录 位 置 向 前 移 P 个 位 置 。 

使 用 POSITION 命令 之 前 ， 文 件 f 必须 被 打开 ， 由 于 OPEN 命令 把 记录 指针 指向 首 
记录 (P= 0)， 若 在 OPEN 命令 后 紧 接着 使 用 POSIEION 命令 ，P 就 是 记录 的 绝对 位 置 , 考 
EOSITION 命令 使 指针 指向 最 后 一 个 记录 以 外 的 位 置 ， 将 产生 “END OF DATA2? 的 错误 信 
轧 。 

如 同 其 它 的 DOS 命令 一 样 ，POSITION 命令 会 使 READ 或 WRITE 命令 失效 ， 所 以 
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POSiTiON 命令 必须 用 在 READ 或 WRITE 命令 之 前 。 
例 6 用 如 下 的 程序 读 出 例 4 中 建立 的 文件 ， 试 给 出 屏幕 上 显示 的 信息 ， 假设 文件 名 为 
“成 绩 表 ”。 
10 INPUT /文件 名 :2，Fy$ 
20E$ = CHR$(4) 
30 PRINT E$; 7MON C，I，Oy7 
40 PRINT E$; /OPEN F 
50 PRINT 了 $; POSITIONZ F$ 7， 及 42 
60 PRINT E$; 7READ FS 
70INPUT Af 
80 PRINT E$; "POSITION F$ 7，R17 
90 PRINT E$;ZREAD7Z;F 
100 INPUT Bg 
110 PRINT E$; OPENZ; Ff 
120 PRINT E$; “POSITION F$ 7，R17 
130 PRINT E$; “READEFS$ 
140 INPUT C$ 
150 INPUT DY 
160 PRINT E 和 7CLOSE2; FS 
170 PRINT ENOMON C，I，0O> 
180 上 END 
执行 此 程序 ， 屏 幕 上 将 显示 : 
OPEN ”成绩 表 
POSITION ”成 绩 表 R4 
READ 成绩 表 
?123512 _ 
POSITION 成绩 表 R1 
READ 成 绩 表 
? 陈 红 
OPEN ”成绩 表 
POSITION ”成绩 表 R7 
READ 成绩 表 
?123514 
?90 
CLOSE 成绩 表 
NOMON C,，1,， 0 
利用 POSJTION 命令 进行 修改 及 重 写 操 作 ， 要 特别 注意 输入 的 新 记录 中 必须 和 文件 
中 的 原 记录 长 度 一 致 ， 若 新 记录 比 原 记录 长 ， 则 新 记录 会 侵入 下 一 个 记录 ， 从 而 使 下 一 个 记 
录 受 到 破坏 ， 若 新 记录 比 原 记录 短 ， 如 例 6 中 所 示 ， 将 会 多 出 一 个 记录 ， 使 下 面 的 记录 全 部 
错位 。 
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盖 、 随 机 文件 

顺序 文件 能 有 效 地 利用 盘 空 间 ， 但 由 于 记录 不 是 定 长 的 ， 各 个 记录 是 顺序 存放 ， 在 数据 
维护 时 ， 璧 如 修改 、 插 入 、 删 除 操作 等 ， 需 要 把 数据 顺序 读 出 作 相 应 的 维护 后 再 重新 写 入 。 
在 检索 时 ， 必 须 把 数据 一 个 个 读 出 再 作 比 较 ， 这 对 于 一 个 信息 量 较 大 的 汉字 处 理 系统 来 说 ， 
要 花费 较 多 的 时 间 ， 而 随机 文件 的 建立 相当 有 规则 ， 存 取 或 修改 时 ， 相 当 快 速 简易 ， 它 适用 
于 需 快 速 存 取 某 一 记录 或 数据 经 常 变动 的 场合 。 

随机 文件 和 顺序 文件 一 样 由 记录 组 成 ， 然 而 随机 文件 各 记录 间 是 定 长 的 ， 当 新 建 一 个 随 
机 文件 时 ， 必 须 先 指定 记录 长 度 ， 以 后 每 写 入 一 个 记录 ， 都 以 这 个 记录 为 标准 ， 记 录 的 长 度 
以 字 节 为 单位 ， 它 是 根据 文件 中 最 长 的 记录 长 度 来 定义 的 ， 一 个 记录 的 最 大 长 度 取决 于 组 成 
这 个 记录 的 字符 个 数 (包括 CR 及 逗号 )， 一 个 汉字 字符 串 的 长 度 包括 编码 的 中 文字 母 ， 组 字 
的 空格 符 及 CR 的 总 个 数 ， 由 于 一 个 汉字 编码 取 码 为 1 一 5 码 不 等 ， 所 以 对 汉字 字符 串 记 录 
定义 文件 的 记录 长 度 时 ， 要 特别 注意 这 一 点 。 

在 随机 文件 中 信息 以 ASC 工 码 存放 ， 当 一 个 记录 的 实际 长 度 比 定义 的 记录 长 度 短 时 , 不 
足 部 分 用 0 补 上 。 

随机 文件 的 一 个 记录 中 可 以 包含 几 个 项 ， 每 项 之 间 以 RETURN 分 隔 , 如 下 面 的 记录 有 
三 个 项 ， 记 录 长 度 定义 为 17 个 字 节 。 


[APPELE.TEXT2FTIELE | 


80807669138469888413707376691300 | 


\- 一 ~- 一 \ 一 - 


项 1 2 3 
一 一 一 -一 一 一 一 -一 一 一 一 一 一- 一 -一 一 / 
记录 1 


“APPLE”， “TEXT ，“FILE” 三 个 记录 在 随机 文件 中 存 贮 形式 如 下 ， (其 中 定义 记录 
长 度 为 7 个 字 节 ) 


字符 |APPLE。.. TEXT FE IELE。 
ASCLC 了 |65 80 80 76 69 13 00 84 69 88 84 13 00 00 70 73 76 69 13 00 00 | 
记录 字 节 0123456012345601234.5.6 
一 一 一 -下 -一 ~ 一 一 \ 


一 一 一 一 


记录 0 1 2 


中 文 信 息 以 中 文字 母 的 ASC 开 的 方式 存 贮 。 
“部 门 >、“ 姓 名 ?二 个 记录 在 随机 文件 中 存 贮 形式 如 下 ，( 和 定义 记录 长 度 为 11 个 字 节 ) 
中 文字 母 让 吕 可 中 心 昌 可 妇 行 节 一 避 可 有 De | 


ASCI 码 [9726E6C326168321300007668716D326 互 6972321300| 


随机 文件 每 个 记录 有 闫 定 的 长 度 ，DOS 利用 这 个 长 度 来 确定 每 一 个 记录 第 一 个 字 节 的 
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位 置 ， 因 而 能 更 迅速 、 更 方便 地 从 任 一 指定 的 记录 处 进行 读 写 ， 提 高 数据 维护 及 检索 的 处 理 
速度 。 

1。 随机 文件 的 打开 和 关闭 

随机 文件 的 建立 和 存 取 方 式 与 顺序 文件 极为 相同 , 打开 及 关闭 文件 的 命令 也 是 OPEN 和 
CLOSE 命令 ， 其 中 CLOSE 命令 和 顺序 文件 中 的 格式 及 用 法 完全 相同 ， 但 随机 文件 使 用 的 
OPEN 命令 多 了 一 个 记录 长 度 参 数 直 ， 它 必须 被 定义 。 

OPEN 命令 

格式 ;OPEN f，Lji[，Ss][，Dd][，Vv] 

其 中 ，L 参数 设 定 记录 长 度 ，j 定义 一 个 记录 最 多 能 占 的 字 节 数 ，j 的 范围 是 1 一 32767， 
如 果 省 略 j， 则 隐 含 j 为 1， 其 它 参 数 见 DOS 命令 的 格式 说 明 。 

和 在 顺序 文件 中 使 用 的 OPEN 命令 一 样 ， 这 个 命令 也 为 随机 文件 f 申请 一 个 595 字 节 
的 文件 缓冲 区 ， 并 定义 记录 长 度 为 j 个 字 节 。 

2。. 随机 文件 的 读 写 命令 

随机 文件 的 读 写 命令 WRITE 及 READ 都 比 顺序 文件 中 使 用 的 相应 命令 多 了 一 个 参数 
人 R。WRITIE 及 READ 命令 格式 如 下 : 

WRITE 红 ，Rr][，Bb] 

了 READ fL，Rr]L，Bb] 

其 中 ，R, 指定 记录 号 ， 首 记录 f= 0, 然后 依次 递增 ，z 省 略 ， 隐 含 了 为 03 

B, 指定 一 个 记录 中 第 b 个 字 节 ，b 省 略 ， 隐 含 b 为 0， 为 首 字 节 。 

写 入 操作 时 ， 每 个 记录 按照 OPEN 命令 定义 的 记录 长 度 工 j 使 用 盘 空 间 ， 记 录 是 DOS 
处 理 的 单位 ， 只 要 一 个 记录 的 信息 长 度 在 工 定义 的 范围 内 ， 任 何 写 入 或 重 写 都 不 会 影响 到 
其 它 记 录 ， 但 绝 不 能 将 一 个 超过 定义 的 记录 长 度 的 信息 写 入 到 一 个 记录 空间 ， 尽 管 这些 信 息 
能 正确 写 入 磁盘 ， 但 当 开始 写 下 一 个 记录 时 ，DOS 仍 以 二 j 计算 这 个 新 记录 的 开始 位 置 ， 因 
此 新 记录 会 覆盖 掉 前 面 过 长 记录 的 最 后 部 分 字符 ， 包 括 最 后 的 结束 记号 RETURN 字符， 造 
成 信息 混乱 ， 在 汉字 信息 处 理 系 统 中 使 用 随机 文件 ， 必 须 予 以 重视 , 记录 长 度 的 选择 要 恰当 ， 
既 不 过 多 地 浪费 盘 的 空间 ， 又 要 防止 出 现 上 述 现象 ， 随 机 文件 的 写 入 过 程 与 顺序 文件 相同 ， 
不 再 缆 述 。 

读 操作 时 ，OPEN 命令 中 的 工 j 参数 应 与 建立 这 个 文件 时 OPEN 命令 中 的 工 j 人 参数 相 
同 ， 如 果 不 相同 ， 则 DOS 按照 新 定义 的 工 j 参数 来 计算 每 一 个 记录 的 长 度 及 位 置 。 因 为 读 
出 的 信息 混乱 不 堪 ， 通 常 在 建立 一 个 随机 文件 之 后 ， 须 将 有 关 记 录 结 构 的 信息 如 记录 长 度 及 
内 容 作为 索引 备查 ， 比 如 存 到 文件 的 首 记 录 中 ,将 长 度 包含 在 文件 各 中 也 不 失 为 一 个 好 办 法 。 
如 FILE-L100， 名 册 -100。 

READ 和 WRITE 命令 中 的 R 参 数 用 来 指定 从 文件 中 的 某 一 记录 开始 读 写 ，DOS 利用 
LDLj 来 计算 前 而 所 有 记录 所 占 的 字 节 数 ， 这 个 字 节 数 除 以 256 所 得 的 值 指出 了 要 找 的 记录 在 文 
件 中 的 第 几 个 区 段 ， 然 后 DOS 查阅 每 个 文件 在 盘 上 存放 位 置 的 道 /区 表 ， 以 找到 这 个 记录 
在 盘 上 存储 空间 的 道 号 、 扇 区 号 ，DOS 跳 过 前 面 的 各 记录 ， 直 接 到 相应 道 相应 扇 区 中 读 取 
信息 或 把 信息 写 入 ， 那 些 被 跳 过 的 记录 仍 保持 不 变 。 

WRITE 和 READ 命令 中 除了 R 参数 之 外 尚 有 B 参 数 ， 它 表示 从 所 指定 的 记录 中 特定 
的 字 节 开始 读 写 ， 这 个 字 节 可 以 在 目前 记录 中 的 位 置 之 前 或 之 后 。 为 了 有 效 地 使 用 这 个 参数 ， 
必须 可 所 指定 前 记 录 中 每 一 字 节 的 内 容 了 如 指 掌 ， 特 别 是 包含 有 汉字 信息 的 记录 ， 不 仅 要 对 
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每 个 中 文字 的 中 文 编码 一 清二 枇 ， 而 且 不 能 忘记 每 个 中 文字 存 贮 时 包括 一 个 组 字 的 空格 符 ， 
用 户 往 往 容易 忽视 这 一 点 。 
3. 随机 文件 的 写 入 和 读 出 
(1) 写 入 一 个 特定 的 记录 
例 1 输入 一 个 学 生 的 “学 号 "姓名 >“ 成 绩 ? 并 将 它们 写 入 指定 的 文件 。 
程序 如 下 ， 
10 D$= CHR$(4) 
20 INPUT /文件 名 : 沪 F$ 
30 INPUT “学 号 :2 Al$ 
40 INPUT 姓名: Bf 
50 INPUT 成绩; Cf 
60 PRINT D4$; 7 OPENZ F4;7，L607 - 
70 PRINT D$7WRITE2 F$ 7，R1 
80 PRINT A$:PRINT B$:PRINT C$ 
90 PRINT D4$; 7 CLOSE 
语句 80 把 一 个 学 生 的 学 号 、 姓 名 、 成 绩 写 入 指定 文件 的 第 二 个 记录 中 ， 这 个 文件 中 公 
有 一 个 记录 ， 一 个 记录 中 有 三 个 项 ， 项 与 项 之 间 用 REIURN 分 隔 。 
读 这 个 文件 的 程序 如 下 : 
10 D$= CHR$(C4) 
20 INPUT “文件 名 :2 Ey 
30 PRINT D$; OPENZ  F$.7,L602 
40 PRINT D$ “READ2 FE 7， 了 17 
50 INPUT A$，B$，Cy 
60 PRINT D$i "CLOSE 
用 下 列 程序 读 出 的 结果 相同 : 
10 D$= CHRJ(4) 
20 INPUT 7 文件 名 25EF$ 
30 PRINT D$ “OPEN7Z F$ 72，607 
40 PRINT D9; “READ7Z; F$; /入 1 
50 INPUT A$:INPUT B$:INPUT Cfy 
60 PRINT D$; 7CLOSE7 
(2) 配 入 多 个 记录 
例 2 试 从 一 个 随机 文件 的 第 二 个 记录 开始 写 入 3 个 学 生 的 成 绩 。 
10 D$= CHR$(C4) 
20 OP$ = D$+“OPEN”:CL$=D$+ZCLOSE”:WR$=D$+2WRITE2: 
DE$=D$+2DELETY 
30 INPUT /文件 名 :2 FS 
40 PRINT OP$ FEy 
50 PRINT DEFf 
60 PRINT OP 和 $ F$7，L607 
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80 INPUT “学 号 ， 姓 名 ， 成 绩 :“ A$，B$，C$ 
90 PRINT WR9$ FE$s7，R4 
100 PRINT A$:PRINTI B$:RINT Cy 
110 NEXT RR. 
120 PRINT CLy F 
130 END 
文件 FE$ 中 每 个 记录 长 度 都 是 60 个 字 节 ， 循 环 语句 写 入 3 个 记录 。 
读 取 这 个 文件 的 程序 如 下 : 
10 INPUT 7 文件 和 名: 上 $ 
20D$= CHR$(C4):PRINT D9$ 2ZOPEN2 FE$ 7，L607 
30 FOR R=1 TO3 
40 PRINT D4$; 7READ2 FE$ 7，R 人 2 
50 INPUT A$，B$，Cy 
60 PRINT A$s 7 23 B$ 7 C 


70 NEXT R- 


=- 王 
dh o 


80 PRINT D$; ZCLOSE7; F$ 
4。 随 机 文件 应 用 实例 
下 面 给 出 随机 文件 应 用 的 一 个 实例 。 


例 3 建立 一 个 随机 文件 ， 写 入 学 生成 绩 表 ， 并 根据 选择 的 行 号 显示 学 生成 绩 或 修改 表 
格 中 各 项 的 内 容 。 成 绩 表 格 以 DATA 语句 给 出 〈 包 括 栏 标题 )， 并 以 空格 作为 表格 结束 标 


可 以 先 建立 一 个 空 文件 ， 

10 INPUT "文件 名 ;23F$ 

20 D$= CHR$(4):PRINT D$y 7OPEN%; F$32，L60y 
30 PRINT D 和 ;WRITE F$; 7，R0/ 

40 PRINT 0 

50 PRINT D4; CLOSE FS$ 


其 中 语句 20 建立 一 个 随机 文件 ， 定 义 记 录 长 度 为 30 个 字 节 。 语 句 30 指定 把 数据 写 到 
文件 的 首 记 录 中 ， 语 句 40 在 首 记 录 中 写 入 数字 0， 以 后 用 首 记录 存 该 文件 中 最 后 一 个 记录 
号 。 

下 面 的 程序 允许 用 户 写 入 成 绩 表 ， 各 二 用 三 选择 的 行 号 显示 整个 成 绩 表 或 某 一 个 学 生 的 


成 绩 以 及 修改 文件 中 所 有 的 项 或 某 些 项 。 一 


10 D$= CHR$(C4) 

20 OP$=D$+YOPEN2CL$=D$+ZCLOSE2Z:RD$=D$ 
+ZREAD7:WR$=D$+2WRITE/ 

30 INPUT Fy 

40 PRINT OP$s FE$57，L607 

50 PRINT RD$ F$ 7，R07 

60 INPUT M 
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y0 PRINT Df 

80 CALEL 49941 

90 POKE 215，1:POKE 214，10:PRINT “选择 处 理 方式 人 CALL 499 44 
100 POKE 瑟 215，3:POKE 214，10:PRINT .70 UV 出 口 7CALEL 49944 
110 POKE 214，10:PRINT 2107 07 输入 /4，CALE. 49944 
120 POKE 214，10:PRINT 727;7 7 显示 2/，CALL 49944 
125 POKE 214，10:PRINT 736 7 修改 4/，CALL:49944. 
130 POKE 215，8:POKE 214，2:PRINT 7 选择 (0 一 3)4; 
140 INPUT “2; 
150 IF K=0THEN 820 

160 ON K GOTO 200，300，500 

170 GOTO 80 - 
200 READ A$，B$，C$:IF A$= 7 THEN 700 
210 PRINT WR$;EF$;“，RM+1:PRINT A$:PRINT B$:PRINT Cj 
220 M=M+1:PRINT WR$ FRI:PRINTM 
230 PRINT D$:GOTO 200 
300 GOSUB 350 
310FOR R=R1ITOR2sGOSUB 450:NEXT R 
320 PRINT D$:GOTO 700 
350 INPUT “ 行 号 0: 所 有 行 :多 Qj$ 
360 PRINT Qg:Q=VAL(Q$):IF(Q<1OR Q>M-D) 

AND Q$< .>“0/ THEN PRINT CHR$(7) :GOTO 350 

370 RI1=Q+i:R2=Q+liFQ=0THEN RI1=2:R2=M 
380 CALL 49941' 
390 R = 1:I=.2:GOSUB 450:PRINT D$ 


400 FOR JJ =T TO 3:CALL 49944:PO 有 KE 214，(J- 1)s10+3:PRINTIY7 ]i ， 
NEXT TPRINT ZX 
410 人 ETURN 一 


450RINT RD 和 Fi ，RO 及 

460 FOR J=1TO 3:INPUT 2 A$ (J):CALL 49944:POKE 214，(J- 1)s10+33:- 
PRINT ASrJ :NEXT JPRINT 2 
470 GALL.:49944:RETURN: 

.500.GOSUB:350 

510 I=2:FOR R=RITO R2 

520 PRINT RD 和 RF$ 7，RR:FORJ=1TO3:INPUT A $(J):NEXT.J: PRINT 
:525 POKE 215，1 POKE 214，0s3PRINTBR-1 

530 也 OR J=1 TO.3:POKE 215，f:POKE 214，(J- 1)sl10+3:CALL 49956: 

PRINT AS$GTDr :POKE.214，(J- IsI0+2:INPUT Q$:CALL49944 

540 IF LEN(Q$)<>0THEN A$J) =Qf 


“105 : 


850 NEXT 


560 PRINT WR$; F$; 7/，R7 R:FOR J=1TO 3:PRINT A $C):NEXT } 


570 PRINT D$: NEXT R 


700 POK 孔 215，9:PRINT “ 按 空格 键 返回 4 


710 GET Gy:IF G$=7 2ZTHEN 80 


720 GOTD 700 


750 DATA “姓名 7， “学 号 7 ， “成 绩 / 


760 DATA 7 王 林 ”，?21235127， 
770 DATA 7 陈 红 ”，721235147， 
780 DATA 7/ 李 明 ”"， ?271235167， 
790 DATA . 张 玲 *，21235187， 
800 DATA 7 林 青 "7，21235207， 
810 DATA XXXw，V 7 
820 END 


X857X 
V907 
/75/ 
Z827 
/927 


程序 中 语句 80~130 显示 功能 选择 表 ， 如 图 全 5-4。 


选择 处 理 方式 


出 口 
输入 


0 
1 
2 显示 
3 修改 


图 4-5-4 


选择 回答 1， 读 入 成 绩 表 ， 表 格 的 一 行 作 为 一 个 记录 写 入 文件 ， 并 在 首 记录 中 写 入 当前 


文件 中 最 后 一 个 记录 号 。 


选择 回答 2， 转 入 显示 成 绩 的 处 理 程序 ， 先 执行 语句 350 一 410 的 子 程序 ， 在 选择 回答 
行 号 后 (区 回答 “0?， 显 示 整 个 表格 ) 显示 栏 标题 ， 并 在 栏 标题 下 显示 点 划 线 。 然 后 执行 语句 
310， 显示 成 绩 表 某 一 行 或 整个 成 线 表 。 如 图 4-5-5 所 示 。 语 句 450 一 470 子 程序 显示 一 个 记 


录 的 内 容 。 


学 号 。 成 且 


王 林 123512 85 
123514 


归 


转 4-5-5 


选择 回答 3 转 入 修改 表格 项 目的 处 理 程序 。 先 显示 标题 及 点 划 线 ， 然 后 读 出 所 选择 的 记 


录 ， 在 屏幕 最 左 方 显示 行 号 ， 并 逐 项 显示 在 相应 的 栏 标题 下 面 。 显 示 某 一 项 后 光标 指 到 这 一 
项 的 开头 ， 用 一 键 把 光标 移 到 需 修 改 的 字符 处 ， 修 改 后 用 一 键 把 光标 移 到 这 一 项 的 最 后 ， 按 


RETURN 键 ， 光 标 指向 下 一 项 ， 继 续 修改 。 一 个 记录 修改 后 ， 写 入 修改 过 的 内 容 。 
上 述 各 处 理 程序 最 后 都 转 到 语句 700 去 执行 ， 按 空格 键 后 ， 返 回 显示 功能 选择 。 


选择 回答 0， 结 束 程序 运行 。 
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六 节 “ 奖 件 及 软盘 的 复制 


汉字 信息 处 理 系统 程序 及 数据 通常 都 保存 在 软盘 上 ， 为 了 防止 意外 事故 而 丢失 这 些 信 
息 , 如 电源 断 电 、 意 外 的 重 写 、 删 除 或 者 盘 损 坏 等 。 有 用 的 软盘 最 好 保存 有 一 个 以 上 的 副本 ， 
并 在 调试 程序 及 输入 数据 过 程 中 定期 地 复制 副本 ， 将 各 副本 按 先 后 编 好 次 序 , 一 旦 发 生意 外 ， 
仍 可 使 用 最 新 拷贝 的 副本 ， 使 损失 达到 最 小 。 

APPLE IT 提供 多 种 方法 复制 各 种 类 型 的 文件 或 整个 软盘 ， 通 常 称 包含 被 复制 内 容 的 软 
盘 为 源 盘 ， 保 存 副本 的 软盘 称 为 复制 盘 ， 在 复制 之 前 ， 最 好 对 源 盘 进行 写 保护 ， 即 在 盘 的 保 
护 缺 口上 粘 上 胶 纸 ， 以 免 意外 破坏 源 盘 上 的 信息 。 


一 、 复 制 APPLE SOFT 程序 文件 及 二 进 制 文件 - 


这 两 种 文件 复制 方法 相似 ， 操 作 过 程 如 下 ， 

(1) 把 源 盘 放 进 1 号 驱动 器 ， 输 入 LOAD 或 BLOAD 命令 , 将 程序 文件 或 二 进 制 文件 
装 入 到 内 存 。 

(2) 若 使 用 一 个 了 驱动器， 复制 到 同一 个 盘 片 上 ， 直 接 输入 SAVE 或 BSAYVE 命令 ， 但 
应 指定 与 原文 件 不 同 的 文件 名 ， 若 复制 到 另 一 盘 上 ， 取 出 源 盘 ， 换 上 复制 盘 ， 再 输入 5AYE 
或 BSAVE 命令 完成 复制 操作 ， 若 要 用 两 个 驱动 器 进行 复制 ， 需 把 复制 盘 放 进 2 号 驱动 俘 ， 
并 在 SAVE 或 BSAVE 命令 中 指定 D2 参数 。 例 如 ，SAVE HZ，D2。 

一 个 中 文 APELE SOFT 程序 文件 可 以 转换 成 二 进 制 文件 ， 操 作 过 程 如 下 : 

(1) 输入 LOAD 命令 把 程序 装 入 到 内 存 8 

(2) 输入 BSAVE 命令 ， 指 定 程序 的 起 始 地 址 $800， 并 给 出 程序 长 度 参 数 ， 程 序 以 三 
进 制 形 式 写 入 软盘 。 

调用 这 个 文件 及 执行 过 程 如 下 : 

先 用 BLOAD 命令 装 入 这 个 文件 ， 同 样 指定 $800 为 程序 存放 的 起 始 地 址 ， 执 行 这 个 程 
序 必 需 使 用 RUN 命令 ， 而 不 能 使 用 BRUN 命令 ， 关 于 BSAVE、BL DAD.BRUN 命令 请 


参阅 本 章 第 九 节 。 


二 、 复 制 正 文 文件 ， 

汉字 信息 处 理 系统 的 特点 是 数据 量 大 ， 数 据 在 整个 系统 中 占有 主要 的 地 位 ， 丢 失 数据 会 
给 整个 系统 带 来 严重 的 后 果 ， 保 存 副本 ， 并 在 输入 过 程 中 随时 复制 副本 是 十 分 重要 的 工作 ， 
数据 是 以 正文 文件 的 方式 保存 在 盘 上 ， 在 目录 中 以 工 表示 ， 这 种 文件 不 能 用 上 面 所 述 的 方法 
复制 。 

在 DOs5 3.3 主 盘 中 提供 一 个 上 ID 程序 ， 它 不 仅 能 对 所 有 类 型 的 DOS 文件 进行 复制 ， 
而 且 还 具有 对 文件 进行 编目 、 删 除 、 封 锁 、 解 除 封锁 等 功能 ， 并 提供 了 使 用 一 个 驱动 器 复制 
软盘 的 方法 。 - 

要 使 用 FID 程序 ， 先 要 引导 DOS， 复 制 盘 必须 经 过 初始 化 ， 其 步骤 如 下 ; 

(1) 将 系统 主 盘 中 上 ID 程序 调 到 主 存 并 执行 

BRUN FID 

屏幕 上 显示 如 下 的 了 ID 选择 项 ; 
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CHOOSE ONE OF THE FOLLOWING OPTIONS 

(1) COPY FILES 

(2) CATALOG 

(3) SPACE ON DISK 

(4) UNLOCK FILES 

(5) LOCK FILES 

(6) DELETE FILES 

(7) RESET SLOT & DRIVE 

(8) VERIFY FILES 

(9) QUIT 

WHICH WOULD YOU LIKE? 

(2) 选择 回答 后 转 入 相应 的 处 理 过 程 

FID 程序 开始 执行 时 ， 没 有 设 定 使 用 哪个 磁盘 驱动 器 ， 输 入 的 第 一 个 命令 如 果 不 是 
COPY 命令 ，FID 程序 要 求 操 作 人 员 设 定 驱动 器 使 用 的 扩充 插座 号 码 及 驱动 器 号 码 , 以 后 输 
入 的 命令 就 作用 于 这 个 驱动 器 上 ， 直 到 用 (7) 的 命令 取消 这 个 约定 。 使 用 下 一 个 命令 时 ， 必 
须 重 新 设 定 盾 座 及 驱动 器 号 码 ， 若 进入 FID 程序 后 第 一 个 输入 的 是 COPY 命令 FID 要 
求 答 入 两 个 磁盘 的 揪 座 号 码 及 驱动 器 号 码 。 

下 面 分 述 各 种 不 同 选 择 的 处 理 过 程 。 


CATALOG 查阅 目录 


选择 回答 2， 由 于 是 进入 FID 程序 后 第 一 个 命令 , 程序 要 求 操作 人 员 输 入 扩充 插座 号 码 
及 驱动 器 号 码 ， 然 后 输出 目录 表 ， 这 个 命令 的 功能 和 DOS 命令 CATALOG 相同 。 在 提示 
信息 “PRESS ANY KEY TO CONTINUE?” 出 现 后 ， 输 入 任何 一 个 键 ， 除 了 RETURN， 
了 SC，CTRL，SHIFT 以 及 RESET 以 外 ， 都 会 返回 选择 处 理 方 式 字幕 。 操作 过 程 如 下 : 

WHICH WOULD YOU LIKE? 2 ”CATALOG 

SOURCE SLOT? 6 

DRIVE?1 

DISK VOLUME 254 

A 006 HELLO - 

工 005 HUN1 

T 013 HUN3 

人 009 HUN4 

A 015 ZYI3 

PRESS ANY KEY TO CONTINUE 

SPACE ON DISK 

选择 回答 3， 显 示 盘 上 已 使 用 过 的 扇 区 数目 及 可 以 使 用 的 扇 区 数目 下 面 操 过 程 作 中 指出 
了 已 使 用 的 扇 区 数目 为 112， 还 有 448 个 扇 区 可 供 使 用 。 

WHICH WOULD YOU LIKE? 3 

SPACE ON DISK 
0448 SECTORS FREE 
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0112 9ELTOR9 USED 
PRESS ANY KEY TO CONTINUE 


UNLOCK 文件 解除 封锁 


选择 回答 4， 提 示 输 入 文件 名 ， 如 果 输 入 非法 的 文件 名 ，FID 会 继续 提示 ， 直 到 输入 正 
确 的 文件 名 ， 接 着 提示 用 户 插入 软盘 ， 并 指示 用 已 SC 键 退出 或 用 其 它 任何 键 开始 对 文件 进 
行 解锁 操作 , 操作 结束 显示 “DONE”。 如 果 软 盘 上 没有 该 文件 ， 则 产生 出 错 信息 “NO FILES 
SELECTED”。 操 作 过 程 如 下 ; 

WHICH WOULD YOU LIKE?4 

UNLOCKE FILE9 
FILENAME? HELLO 
INSERT DISKRS，PRE9SS <ESC> TO 了 RETURN TO MAIN MENU OR ANY 
OTHER KEY TO BEGIN 

FILENAME:HELLO 

FILE HELLO 

DONE 

PRES9 ANY 人 KEY TO CONTINUE 


LOCKR 封锁 文件 


者 要 封锁 一 个 文件 ， 选 择 回 答 5， 操 作 过 程 和 对 一 个 文件 解除 封锁 相似 。 
WHICH WOULD YOU LIKE?5 
LOCK FILES 
FILENAME? HELLO 
INSERT DISKS，PRESS<ESC> TO RETURN TO MAINMENU 
OR ANY OTHER KEY TO BEGIN 
FILENAME2HELLO 
HILE HELLO 
DONE 
PRESS ANY KEY TO CONTINUE 


DELETE 删除 


该 命令 删除 一 个 或 一 组 文件 ， 选 择 回答 6。 如 果 操 作 顺 利 完 成 ， 显 示 “DONE”， 如 果 文 
件 找 不 到 ， 将 显示 “NO FILES SELECTED”; 如 果 文 件 被 封锁 , 则 显示 “FILE LOCKED”， 
且 不 执行 删除 操作 。 下 面 是 一 个 被 封锁 文件 的 操作 过 程 。 

WHICH WOULD YOU LIKRE?6 

DELETE FILES9 

FILENAME?ZI1 

INSERT DIS9K9，PRESS <ESC>TO RETURN IO MAIN MENU OR ANY 

OTHER KEY TO BEGIN 

FILENAME :ZL11 
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FILE ZI1 ” 
FILE LOCKEFED 
PRESS ANY KEY TO CONTINUE 


RE9SET 复位 


这 个 命令 用 来 修改 扩充 捅 座 和 驱动 器 号 ， 选 择 回答 7。 取消 当前 的 播 座 及 驱动 器 号 ， 操 
作 过 程 如 下 : 
WHICH WOULD YOU LIKE?7 
RESET SLOT & DRIVE 
DONE 
PRESS ANY KEY TO CONTINUE 


VERIFY 检测 


这 个 命令 与 DOS 中 的 VERIFY 命令 的 功能 相同 ， 选 择 回 答 8。 当 文件 检测 后 , 如 果 当 
前 的 插座 及 驱动 器 号 也 被 RESET 命令 取消 ， 要 求 重新 定义 插座 及 驱动 器 号 。 文件 检测 后 ， 
如 果 不 能 读 入 一 个 文件 ， 显 示 IMO ERROR， 命 令 正确 执行 后 显示 文件 名 及 DONE。 

WHICH WOULD YOU LIKE?8 

VERIFEY FEILE9 
SOURCE 3LOT?6 
DRIVE?1 

FILENAME?HELLO 

INSERT DISKS。PRESS<ESC>TO RETURN TO MAIN MENU OR ANY 

OTHER KEY TO BEGIN 

FILENAME:HELLO 

FILE HELLO 

DONE 


COPEY 复制 


选择 回答 1 可 以 对 文件 进行 复制 。 
双 了 驱动 器 的 复制 过 程 如 下 ， 
WHICH WOULD YOU LIKE?1 
COPY FILES 

SOURCE SLOT?6 

DRIVE?1 
DESTINATION SLOT?6 

DRIVE?2 

FILENAME?7ZYI3 
INSERT DISKS。PRESS <ESC> TO RETURN TO MAIN MENU OR ANY 
OTHER KEY TO BEGIN 
FITENAME:ZYI3 
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FILE ZYI3 

DONE 

PRESS ANY KEY TO CONTINUE 

通常 盘 驱 动 器 控制 卡 揪 在 6 号 播 座 上 ， 两 个 驱动 器 号 不 同 ， 在 文件 名 的 提示 下 ， 输 入 一 
个 文件 名 ， 则 复制 这 个 文件 ， 输 入 =?”， 则 复制 一 个 完整 的 软盘 , 输入 文件 名 为 “FR = 了 上 D?， 
程序 选择 所 有 以 ^FR? 开 头 ， 以 “ED? 结 尾 文 件 名 所 代表 的 文件 ， 输 入 “=N=”， 则 选择 文件 
名 中 包含 人 的 文件 。 输 入 文件 名 后 ， 系 统 提 示 把 源 盘 及 复制 盘 捅 到 相应 的 驱动 器 中 ， 并 按 任 
一 键 开 始 复制 ; 

如 果 源 盘 中 没有 被 复制 的 文件 ， 则 显示 错误 的 信息 “NO FILE SECECTED?。 

如 果 复 制 正 稼 结束 ， 显 示 DONE。 

如 果 复 制 盘 上 已 存在 一 个 文件 , 它 和 要 复制 的 文件 同名 ,， 则 显示 信息 “FILE ALREADY 
了 XISTS”， 同 时 输出 下 列 信息 ， 提 示 你 如 何 处 理 ， < 

TYPE IN NEW FILE NAME FOR THE COPY OR<RETURN> TO REPLACE 
PRESENT FILE OR<CTRL - C> <RETURN> TO CANCEL COPY 

你 可 以 作 如 下 三 种 选择 ， 

(1) 重新 输入 一 个 新 的 文件 名 ; 

(2) 用 现在 要 复制 的 文件 代替 旧 文 件 ， 输 入 RETURN， 车 旧 文 件 没 被 封锁 ， 新 文件 将 
替代 旧 文 件 ， 如 果 旧 文件 被 封锁 ， 将 显示 

FILE LOCKED 

DO YOU WISH TO REPLACE IT ANYWAY? 

接着 输入 YY， 复 制 开 始 ， 旧 文件 被 复 盖 。 如 果 输 入 N， 系 统 要 你 重新 对 这 三 种 选择 作出 
回答 ; 

(3) 如 果 不 再 复制 ， 可 输入 CTRL-C RETURN。 

单 驱 动 器 的 复制 过 程 要 求 输入 相同 的 源 盘 和 复制 盘 所 在 的 扩充 揪 座 号 和 驱动 器 号 ， 同 时 
系统 提示 你 轮流 把 源 盘 及 复制 盘 放 入 驱动 器 ， 将 文件 分 段 读 出 及 写 入 ， 在 两 盘 之 间 进 行 复 
制 。 


QUIT 退出 


选择 回答 9， 退 出 FID 程序 ， 回 到 BAsSIC 系统 。 
FID 程序 可 以 复制 包含 中 文 信息 的 文件 ， 可 以 在 英文 系统 下 复制 ， 如 果 文 件 名 是 中 文 ， 
必须 先 用 RENAME 命令 改 成 任 一 个 英文 名 ， 复 制 后 重新 用 RENAME 命令 改 回 来 。 


三 、 复 制 软盘 


APPLE 工 系统 主 盘 提供 一 个 COPYA 程序 ， 它 能 将 一 个 磁盘 上 的 内 容 全 部 复制 到 另 一 
个 磁盘 上 ，COPY A 有 格式 化 功能 ， 复 制 盘 不 需要 预先 进行 格式 化 ， 复 制 步 又 如 下 ， 

(1) 输入 RUN COPYA 命令 把 系统 主 盘 中 的 COPYA 程序 装 入 到 内 存 并 执行 ， 屏 幕 
上 显示 ， | 

APPLE DISKETTE DUPLICATION PROGRAM ORIGINAL SLOT:DEEFEAULT 

=6 

通常 驱动 器 控制 卡 捅 在 6 号 捅 座 ， 源 盘 放 在 1 号 了 驱动器， 复制 盘 放 在 2 号 驱动 器 ; 
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(2) 当 ORIGINAL 3LOT 信息 出 现时 回答 6， 
DRIVE 信息 出 现时 回答 1 
(3) 当 DUPLICATION SLOT 信息 出 现时 回答 6， 
DRIVE 信息 出 现时 回答 2; 
〈4) 正确 回答 上 述 问题 后 ， 屏 幕 上 将 出 现 
-一 一 PRESS /RETURN' KEY TO BEGIN COPY 一 一 
按 下 RETURN 键 ， 复 制 开始 ， 屏 幕 上 反复 出 现 “READ”? 和 “WRITE” 信 息 ， 其 复制 
过 程 是 以 一 次 读 一 部 分 源 盘 上 的 信息 ， 然 后 写 入 复制 盘 的 方式 进行 ,反复 多 次 、 直 至 复制 结 
束 。 
(5) 复制 结束 屏幕 上 出 现 提示 信息 
DOYOU WISHTO MASKE ANOTHER COPRY? 
若 需 重新 复制 一 张 ， 可 将 这 次 复制 过 的 软盘 从 2 号 驱动 器 取出 ， 将 另 一 个 复制 盘 放 入 ， 
按 Y 键 后 开始 新 的 复制 过 程 。 
若 不 再 复制 ， 按 N 键 退出 COPYA 程序 。 
复制 过 程 也 可 以 在 一 个 驱动 器 上 进行 ， 重 复 上 述 (1)、(2) 步 又 ， 在 (3) 中 的 DRIVE 后 
面 回答 1。 当 (4) 中 的 提示 信息 出 现 后 ， 从 1 号 驱动 器 取出 系统 主 盘 ， 揪 入 源 盘 ， 并 按 下 
RETURN 键 ， 程 序 读 了 一 部 分 源 盘 信息 后 通知 操作 者 用 复制 盘 代替 源 盘 ， 并 初始 化 源 盘 ， 
然后 程序 提示 重新 搬入 源 盘 ， 读 出 源 盘 信息 ， 再 次 提示 插入 复制 盘 ， 把 信息 复制 到 盘 上 ， 重 
复 后 两 个 工作 ， 直 到 源 盘 被 复制 完 。 


第 七 他 程序 的 连接 


AFEFLEIT-PLUS 有 48K 字 节 的 RAM 存 贮 器 ， 可 供 程 序数 据 使 用 的 存 贮 空 间 仅 二 十 
多 玫 ， 市 且 存 放 一 个 实数 占 5 个 内 存单 元 ， 存 放 一 个 整数 占 2 个 单元 ， 存 放 一 个 字符 串 占 4 
个 以 上 的 单元 ， 通 常设 计 一 个 汉字 系统 处 理 程序 都 需要 采用 履 盖 技术 ， 把 一 个 程序 分 成 多 个 
程序 段 ， 存 放 在 磁盘 上 ， 系 统 提供 功能 选择 表 ， 用 户 选 择 后 调 入 相应 的 程序 段 执行 ， 也 可 以 
在 一 个 程序 段 中 调用 另 一 个 程序 仆 ， 程 序 段 之 间 的 连接 通常 可 以 采用 以 下 凡 种 方法 : 


一 、 不 需要 传递 变量 值 的 程序 段 间 的 连接 


若 各 程序 段 间 不 需要 传递 变量 值 ， 可 以 用 DOS 命令 进行 连接 ， 在 第 一 段 程序 的 最 后 一 
行 写 上 F 

PRINT CHR$ (4) “RUN PART TWO7。 其 中 PART TWO 是 第 二 段 程 序 的 文件 
名 。 

例 1 车 第 三 章 第 六 节 例 中 功能 选择 表 提 供 的 两 个 功能 程序 段 相互 独立 ， 并 以 各 自 的 文 
件 名 存放 在 盘 上 ， 则 语句 70，80 必须 作 如 下 改动 ， 并 增加 语句 90，100。 

70 ONC GOTO 90，100 

80 D$ = CHR$(4) 

90 PRINT D$; ZRUN 查询 / “查询 ?是 查询 程序 段 的 文件 名 

100IRINT D 和 “RUN 打印 ” 夺 印 是 打印 报表 程序 段 的 文件 名 

调 入 新 程序 前 机 器 自动 将 内 存 中 原 有 的 程序 及 数据 全 部 清除 。 各 程序 段 中 最 后 要 写 上 返 
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回 功能 选择 程序 段 的 语句 ， 即 PRINT D$; “RUN 选择 *。“ 选 择 ” 为 功能 选择 程序 的 文件 
名 。 

如 果 两 县 程序 需要 共用 一 些 信息 ， 这 些 信息 也 将 丢失 ， 使 第 二 段 程 序 无 法 正确 运行 ， 解 
决 办 法 如 下 所 述 。 


一 、 需 要 传递 变量 值 的 程序 段 间 的 连接 


1。 英文 系统 下 的 连接 程序 CHAIN 

AFEELEEI 系 统 主 盘 中 提供 一 个 机 器 语言 程序 CHAIN， 它 不 仅 可 实现 两 段 程序 的 连接 ， 
而 且 实现 中 间 数 据 的 传递 , 但 这 个 CHAIN 程序 不 能 对 汉字 处 理 程 序 进行 连接 。 使 用 CHAIN 
命令 须 将 主 盘 中 的 CHAIN 程序 复制 到 用 户 程序 胡 上 CHAIN 的 使 用 方法 如 下 ， 

(1) 输入 BLOAD CHAIN，A12296 将 系统 主 盘 的 CHAIN 程序 调 入 内 存 ; 

(2) 输入 BSAVE CHAIN，Al12296，L456 将 CHAIN 存 入 用 户 程序 盘 ; 

(3) 在 第 一 段 程 序 调用 第 二 段 程 序 之 前 写 入 语句 

1000 PRINT CHR$(C4);7BLOAD CHAIN，A5207; 

(4) 在 第 一 段 程序 的 最 后 一 个 语句 调用 第 二 段 程 序 。 设 第 二 段 程序 名 为 “PART TWO” 

1010 CALL 5204PART TWOY 

值得 注意 的 是 CALL 520 与 双 搬 号 之 间 是 不 留 间隔 的 。 

(5) 运行 第 一 个 程序 段 ， 即 输入 命令 “RUN 上 ART ONE” 就 可 以 完成 程序 的 连接 及 变 
量 的 传递 。 

2。 中 文 BASIC 程序 的 连接 

中 文 数据 处 理 系 统 中 若 两 个 程序 段 间 需要 相互 传递 信息 ， 例 如 两 个 程序 段 间 公 用 变量 义 
及 带 有 汉字 的 字符 串 变量 F$， 必须 在 第 一 段 程 序 的 最 后 部 分 把 及 F$ 保存 到 受 保护 的 缓冲 
区 。 设 第 二 段 程序 的 文件 名 为 PART 工 WO， 第 一 段 程序 的 最 后 部 分 号 上 如 下 的 语句 ， 

1000 POKE 768，X 

1010 直 =LEN(CF$):POKE 769,， 工 

1020 FOR I=1 TO L:POKE 770+I，ASCMID$CE$，I，1)):NEXT 1 

1030 PRINT :CHR$(4);ZRUN PART TWO 

其 中 汉字 字符 串 必须 以 中 文字 母 的 ASC 开 码 存放 。 

在 第 二 个 程序 段 的 起 始 部 分 ， 必 须 先 取出 变量 及 X 中 文字 母 ， 并 恢复 成 汉字 字符 串 

5 F$ 一 VN 
10 X= 了 PEEK(768): 世 = PEEK(769) 
20RFKOR TI=TLTOL:E$=F$+CHR$OPEEK(G774+I)):NEXTT 


当 运 行 第 一 个 程序 段 后 自动 装 入 第 二 个 程序 段 ， 并 把 变量 又 及 下 $ 传递 给 第 二 个 程序 


可 以 使 用 LOMEM，HIMEM 语句 为 要 传递 的 信息 项 留 缓冲 区 ， 详 见 第 五 章 叙 述 。 
3。RENUMBER 程序 
了 Oo53.3 主 盘 提供 一 个 RENUMBER 程序 ， 这 个 程序 有 两 个 功能 。 
(CA 对 一 个 程 序 重 排行 号 ; 
“T13， 


(B) 把 两 个 程序 拼接 成 一 个 程序 。 

RENUMBER 程序 使 用 的 方法 如 下 : 

(1) 执行 RENUMBER 程序 ， 即 输入 RUN RENUMBER 命令 ,屏幕 显示 如 下 ， 

RENUMBER (DEFAULT VALUES) 

& AFIRST 10U A, INC 10U A，S OU A,， 忆 63999U 

MERGE 

&H ”PUT PROGRAM ON HOLD 

芭 M NERGE TO PROGRAM ON HOLD 

PRESS /RETURN' TO CONTINUE.… 

其 中 ，& FIRST n 指出 重 排行 号 后 ， 新 行 号 的 起 始 位 ， 若 省 略 了 这 个 参数， 自动 设 定 
为 10。 

INCn ， 指 出 重 排行 号 后 ， 各 行 号 之 间 的 间隔 ， 若 省 略 这 个 参数 ， 自 动 设 定 为 10。 

Sn: 指出 要 进行 重 排行 号 的 程序 段 最 小 行 号 ， 省 略 它 ， 自 动 设 定 为 0。 

En: 指 出 要 进行 重 排行 号 的 程序 段 的 最 大 行 号 ， 省 略 它 、 自 动 设 定 为 32768。 

&H: 保 持 当前 内 存 中 的 程序 使 它 不 受 破 坏 。 

&M: 把 新 装 入 的 程序 和 于 用 &H 保持 的 程序 拼接 。 

按 程序 的 提示 ， 用 户 接着 按 RETURN 键 ， 在 下 一 个 屏幕 页 显示 ， 

RENUMBER JIS INSTALLED AND READY 

IF YOU USE “FP'，' HIMEM'，OR “MAXFILES'/ 

YOU WILL HAVE TO RE-RUN RENUMBER 

它 指出 RENUMBER 程序 已 准备 好 。 

(2) 若 要 对 一 个 程序 重 排行 号 ， 输 入 LOAD 命令 ， 把 这 个 程序 装 入 到 内 存 ， 接 着 输入 
&EFIRST 命令 ， 例 如 你 要 对 程序 中 语句 100 一 500 重 排行 号 ， 重 排 后 起 始 行 号 为 50, 语句 间 
间隔 为 10， 则 输入 命令 ; 

I&FIRST 50，INC 10，S100，E500 
当 屏 幕 上 出 现 提示 符 ]， 重 排 工 作 完 成 。 

(3) 若 要 将 两 段 程序 拼接 成 一 个 程序 ， 如 程序 1 和 程序 2， 这 两 个 程序 可 能 有 重复 或 交 
错 ， 对 程序 1， 可 以 不 重新 排行 号 ， 但 程序 2 必须 重新 排行 号 ， 而 且 程 序 2 的 新 行 号 的 起 始 
值 一 定 要 大 于 程序 1 的 最 大 行 号 ， 否 则 拼接 之 后 ， 交 接 后 出 现 两 个 必 行 号 移 语 名 或 语句 交错 
的 情况 。 

拼接 过 程 如 下 : 

在 对 程序 1 重 排行 号 后 输入 命令 &H, 用 以 保护 当前 处 于 内 存 中 的 程序 1, 然后 用 LOAD 
命令 装 入 程序 2， 重 排行 号 后 输入 命令 &M， 拼 接 工作 即 告 完 成 。 


第 八 节 ”磁盘 管理 信息 


DOS 对 一 个 文件 的 读 写 过 程 是 以 一 个 扇 区 256 个 字 节 为 基本 单位 进行 的 ， 就 是 说 一 个 
文件 是 被 分 成 一 个 个 区 段 存 赔 在 视盘 上 的 一 个 个 扇 区 中 ， 为 了 证 住 某 一 个 文件 的 各 个 区 段 存 
放 在 盘 上 郧 一 个 道 ， 娜 一 个 扇 区 上 ，DOS 在 存 贮 文件 时 ， 也 将 其 所 用 到 的 磁道 , 扇 区 记录 在 
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~- 全 表 中 ， 这 个 表 称 为 道 / 区 表 ( 或 T/S 表 )。 并 建立 文件 索引 表 ， 记 录 文 件 名 称 、 类 型 ， 以 
区 段 为 单位 表 头 的 文件 长 度 ， 以 及 文件 的 道 /区 表 存 在 磁盘 上 的 位 置 等 ， 对 每 一 个 磁盘 DOS 
都 建立 一 个 磁盘 内 容 表 ， 或 称 VTOC 表 , 它 给 出 了 该 磁盘 的 一 些 状态 及 盘 区 的 分 配 情况 ,这 
些 表格 就 是 磁盘 管理 信息 ， 对 磁盘 的 读 写 操 作 是 以 查 表 方 式 进行 的 。 


一 、VTOC 表 
VTIOC 表 是 磁盘 的 内 容 表 ， 位 于 17 道 第 0 区 ， 占 一 个 扁 区 ， 信 息 内 容 如 下 ， 
字 节 内 和 容 
0 未 用 
1 第 一 个 目录 表 区 段 的 道 号 
2 第 一 个 目录 表 区 段 的 区 号 
3 DOS 的 版 本 号 - 
4 一 5 未 用 
6 盘 卷 号 (1 一 254， 初 始 设 定 254) 
7 一 26 未 用 
27 在 一 个 道 / 区 表 区 段 中 所 能 存放 的 道 / 区 对 的 最 大 数 (122) 
28 一 2F 未 用 
30 已 分 配 的 最 后 一 道 
31 盘 的 分 配方 向 
32 一 33 未 用 
34 磁盘 的 总 道 数 (35) 
35 每 道 的 区 段 数 (13 或 16) 
36 一 37 每 个 区 段 的 字 节 数 
38 一 3B 第 0. 道 的 各 个 区 段 分 配 的 标志 
3C 一 3F 第 1 道 的 各 个 区 段 分配 的 标志 
C0 一 C3 第 34 道 的 各 个 区 段 分 配 的 标志 
C4~FF 未 用 
VTOC 表 中 ， 磁 盘 上 每 一 道 各 个 区 段 的 分 配 与 否 的 标志 占用 4 个 字 节 ， 字 节 与 区 段 的 对 
应 关系 如 下 ， 
字 节 对 应 的 区 自 
0 FEDCBA98 
1 76543210 
2 一 3 未 用 
字 节 0 及 1 中 每 一 位 对 应 一 个 区 段 ， 如 果 一 个 区 段 已 分 配给 某 个 文件 ， 相 应 位 为 0， 未 
分 配 为 1。 
二 、 案 引 表 


索引 表 记 录 了 盘 上 每 个 文件 的 基本 情况 ， 比 如 文件 和 名、 类型、 长 度 、 道 /区 表 的 位 置 等 ， 
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它 存 放 在 第 17 道上 ， 一 般 从 第 15 区 段 开始 存放 ， 每 一 个 索引 区 段 可 放 7 个 文件 的 索引 项 ， 
如 文件 超过 7. 个， 超出 的 索引 项 依次 存放 到 第 .14 区 段 ， 直 至 第 1 区 豚 。 索引 表 中 的 第 1、2 
字 节 完成 区 段 的 连接 ， 索 引 表 最 多 可 存 取 10 个 不 周文 件 的 索引 项 。 

索引 表 在 盘 上 存放 的 位 置 由 VTOC 表 中 的 指针 (1 一 2 字 节 ) 指 出 ， 一 个 磁盘 索引 表 的 各 
个 区 段 格 式 如 下 : 


字 节 字 节 的 内 容 
0 来 用 
1 下 一 个 索引 区 段 的 道 号 (通常 为 17 道 ) 
2 下 一 个 索引 区 段 的 区 段 号 

3 一 人 未 用 


B 一 2D 文件 工 的 索引 项 
2 也 一 50 文件 2 的 索引 项 


DD~EFEF 文件 7 的 索引 项 
一 个 文件 的 索引 项 占 35 个 字 节 ， 内 容 如 下 : 


字 节 字 节 内 容 、 
0 文件 的 第 一 个 道 /区 表 区 段 的 道 号 
1 文件 的 第 一 个 道 /区 表 区 段 的 区 段 号 
2 文件 类 型 

3 一 20 文件 名 


21 一 22 文件 后 用 软盘 区 段 的 数目 
文件 类 型 字 节 中 每 一 位 所 代表 的 文件 类 型 如 下 表 : 


字 闻 CATALOG 命令 显示 的 符号 文件 类 型 
7 =1 文件 被 封锁 
=10 :文件 未 封锁 
6 一 3 全 为 0 
2 B =1 二 进 制 文件 
]  A =1 APPLE SOFT BASIC 文件 
0 I =1 整数 BASIC 文件 
0 一 6 位 全 为 0 下 正文 文件 
文件 类 型 的 标志 字 节 可 以 为 以 下 几 种 可 能 的 值 
文件 类 型 类 型 字 节 的 值 
文件 未 封锁 文件 已 封锁 ; 
正文 0 80 
整 型 1 81 
APPLE SOFT BASIC 文件 2 82 
二 进 制 4 84 


文件 索引 项 中 ， 字 节 21 和 22 的 最 大 计数 值 为 255。 如 果 一 个 文件 的 区 段 评 疾 箱 大 于 
?55， 则 重新 从 000 开始 计数 ， 最 后 的 计数 值 在 CATALOG 命令 中 显示 出 来 ， 在 查阅 一 个 
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文件 占用 的 区 段 值 时 要 注意 这 一 点 。 
三 、 道 /区 表 


道 / 区 霄 指出 一 个 文件 各 个 区 段 在 盘 上 存放 的 位 置 ， 它 以 文件 存 贮 的 方式 存放 在 软盘 上 ， 
每 个 文件 都 对 应 一 个 道 /区 表 ， 道 /区 玫 的 第 一 个 区 段 在 盘 上 的 存 贮 位 置 由 这 个 文件 的 索引 项 
中 的 字 节 0 和 字 节 1 指明 ， 以 后 各 个 道 /区 表 的 区 段位 置 由 道 /区 表 中 的 字 节 1、2 的 指针 连 
接 ， 道 /区 表 的 格式 如 下 ; 

字 节 字 节 的 内 容 

0 未 用 
工 下 一 个 道 / 区 表 的 道 号 
下 一 个 道 / ”区 表 的 区 段 号 - 

3 一 4 未 用 
5 一 6 该 道 /区 表 区 段 中 的 第 一 个 区 段 在 文件 中 是 第 几 个 区 段 
7 一 了 未 用 
C 文件 第 一 个 区 段 的 磁道 号 
D 文件 第 一 个 区 段 的 区 段 号 
E 文件 第 二 个 区 段 的 磁道 号 

F 文件 第 二 个 区 段 的 区 段 号 


s 《 
FE 文件 第 122 个 区 段 的 磁道 号 
FF 文件 第 122 个 区 段 的 区 段 号 
当 DOS 访问 一 个 盘 文 件 时 ， 先 读 17: 道 0 区 的 VTOC 表 ， 从 表 中 的 第 1.2 字 节 查 到 第 
1 个 索引 区 段 的 位 置 ， 从 这 个 索引 区 县 开始 依照 索引 区 段 的 第 1.2 字 节 连接 指针 查找 各 个 目 
录 区 段 中 的 文件 索引 项 ， 查 到 从 表 中 找到 所 需 文件 的 文件 索引 项 ， 从 所 需 文 件 索引 项 的 第 1、 
2 字 节 查 到 存放 第 一 个 道 / 区 表 的 盘 位 置 ， 然 后 从 道 / 区 表 中 查 得 各 文件 区 段 所 占 的 盘 位 置 , 如 
果 一 个 文件 的 长 度 超过 了 122 个 区 段 ， 需 要 由 道 /区 表 的 第 1、2 字 节 查 出 下 一 个 道 / 区 表 区 
段位 置 ， 再 从 中 查 到 超过 的 区 段 存 放 的 盘 位 置 ， 以 此 类 推 ， 直 到 读 出 整个 文件 ， 所 以 只 要 读 
出 17 道 0 区 的 VTOC 表 ， 就 可 以 了 解 整个 盘 空 间 的 使 用 情况 ， 当 然 也 知道 一 个 文件 的 存 贮 
情况 ， 下 一 节 我 们 将 介绍 如 何 读 出 17 道 0 区 的 VTOC 表 。 


第 九 节 “机 器 语言 文件 


机 器 语言 文件 即 二 进 制 文件 , 它 包含 了 内 存 中 一 个 特定 范围 中 的 二 进 制 信息 的 准确 映 象 。 
这 些 二 进 制 信息 可 以 是 机 器 语言 程序 ， 二 进 制 数据 或 高 分 辨 图 形 区 的 信息 ， 在 索引 中 ， 二 进 
制 文件 名 前 用 “B” 表 示 。 处 理 二 进 制 文件 的 DOS 命令 是 BSAVE，BLOAD，BRUN。 它 们 
的 功能 和 处 理 APPLE SOFT 程序 文件 的 SAVE，LOAD,RUN 命令 相同 。 二 进 制 机 器 语 
言 的 程序 也 可 以 在 BASIC 程序 中 使 用 CALEL 或 U5R 功能 调用 。 
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一 、 有 关 二 进 制 代码 文件 的 D0S 命令 

1。BSAVE 命令 

BSAVE 命令 建立 一 个 二 进 制 文件 ， 把 内 存 中 特定 区 域 的 二 进 制 信息 存 进 磁 盐 。 

格式 ，BSAVE f，Aa，L 谍 ，Ss][，Vv][，Dd] 

f: 文 件 名 

A: 指 定 内 存 中 要 存放 的 二 进 制 信息 区 域 的 起 始 地 址 。a 的 范围 是 0 一 65535; 

L :指定 这 个 二 进 制 信息 区 域 的 长 度 ， 以 字 节 计数 ，;j 的 范围 是 1 一 32767， 如 果 一 个 区 域 
的 长 度 超过 32767， 必 须 使 用 两 个 BSAVE 命令 。 

这 两 个 参数 不 能 省 略 ，L,、A 参数 值 可 用 十 六 进 制 表示 ， 但 十 六 进 制 值 前 面 要 加 上 $。 

例如 ，BSAVE 文件 名，A$800，L2000，S6，D1，V6 

它 表 示 把 从 主 存 $800 开始 ， 长 度 为 2000 字 节 的 二 进 制 信息 以 一 个 指定 的 文件 名 存放 到 
磁盘 上 。 

2.BLOAD 命令 

BLOAD 命令 将 二 进 制 文 件 的 内 容 送 回 内 存 。 

格式 ，BLOAD fL，Aa][，Ss][，Dd][，Vv] 

在 这 个 命令 中 A 参数 可 以 省 略 , 这 时 文件 的 内 容 将 送 回 到 这 个 文件 原来 所 在 的 内 存 中 ( 即 
扰 行 BSAVE 时 指定 的 A 值 )， 如 果 指 明了 A 人 参数 ， 那 么 将 从 地 址 a 开始 存放 ，BLOAD 命 
令 一 般 不 会 把 BAsIC 程序 清除 ， 除 非 二 进 制 信息 被 加 载 到 包含 BAs5IC 程序 的 特定 内 存 区 
域 。 

例如 ，BLOAD 文件 名 ，A$800 

它 表 示 把 一 个 指定 的 机 器 语言 文件 装 入 到 内 存 $800 开始 的 区 域 中 ， 

3。BRUN 命令 

格式 ，BRUN f[，Aa]j[，Ss][，Dd][，Vv] 

只 有 当 二 进 制 文件 f 是 机 器 语言 程序 时 才 可 以 使 用 这 个 命令 。 

BRUN 命令 首先 执行 程序 的 装 入 操作 ， 也 即 重复 BLOAD 操作 , 然后 它 执行 一 个 机 器 话 
言 的 转移 指令 ， 转 到 程序 的 入 口 并 执行 这 个 程序 。 


二 、 磁 盘 驱 动 程序 (RWTS 子 程序 ) 


通常 ， 用 户 若 要 访问 盘 文 件 , 只 能 使 用 DOS 操作 系统 ， 而 且 文 件 在 盘 上 存 贮 的 位 置 是 由 
DOS 管理 的 ， 只 有 读 出 17 道 0 区 的 VTQOC 表 , 才能 了 解 到 一 个 文件 在 盘 上 的 存 贮 情 况 ， 用 
户 不 可 能 任意 指定 在 某 一 磁道 和 区 段 上 读 、 写 信息 。 

DOS 以 层次 结构 实现 对 系统 的 操作 管理 以 及 磁盘 的 读 写 操作 和 磁盘 文件 各 项 管理 操作 ， 
DOS 的 结构 分 成 如 下 三 个 主要 层次 : 

外 层 为 DOS 的 主体 程序 ， 如 冷 / 热 启 动 入 口 程 序 、BASIC 的 接口 程序 及 DOS 命令 的 
解释 程序 ! 

中 间 一 层 是 文件 管理 程序 ， 它 负责 完成 磁盘 文件 的 读 写 和 维护 管理 工作 ; 

内 层 磁 盘 驱 动 程 序 ， 也 称 “RWTS? 程 序 、 即 “区 段 读 写 程序 ?， 是 DOS 的 内 核 程 序 ， 它 
完成 基本 的 磁盘 读 写 操作 ， 也 就 是 说 ， 它 以 区 段 为 单位 对 磁盘 进行 读 写 。 

二 层 之 间接 口角 确 ， 外 层 可 以 通过 一 定 的 命令 表格 调用 内 层 的 程序 模块 ，RWTS 是 作 
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为 一 个 子 程序 在 DOS 中 由 文件 管理 程序 调用 。 

在 盘 上 的 读 写 操作 基 以 一 个 扇 区 为 单位 的 每 个 扁 区 分 成 两 个 域 ; 地 址 域 和 数据 成 。 地 址 
域 包括 盘 卷 号 、 道 号 、 区 号 。 数 据 域 包含 256 个 字 节 数据 的 实际 代码 (信息 是 以 一 定 的 编码 方 
式 记 录 在 盘 上 )。 当 DOS 访问 盘 文 件 时 ， 通 过 查 VTOC 表 、 磁 盘 索 引 表 及 道 / 区 表 ， 找 到 
文件 各 个 区 段 在 磁盘 的 哪个 磁道 ， 娜 个 扇 区 上 。 磁 盘 控 制 器 驱动 磁头 定位 到 磁道 后 ， 从 当前 
位 置 开始 我 下 一 个 地 址 域 ， 并 读 出 地 址 信息 进行 比较 ， 如 果 不 是 要 查找 的 扇 区 ， 则 再 读 下 一 
个 肩 区 的 地 址 域 ， 直 至 找到 所 要 揭 扇 区 ， 再 完成 读 或 写 操作 。 每 次 读 写 一 个 扇 区 的 操作 正 是 
由 RWTs 子 程序 完成 的 。 可 以 看 到 ， 如 果 用 户 也 能 直接 调用 这 个 子 程序 ， 用 户 就 能 指定 在 
盘 上 的 任意 磁道 和 扇 区 上 读 ， 写 信息 。APPLEI 提供 了 这 一 功能 。 

DOS 操作 系统 是 由 机 器 语言 编写 的 ， 所 以 人 WTS 子 程序 也 是 一 个 机 器 语言 程序 ,其 入 
口 地 址 是 $03D9， 当 DOs 中 的 文件 管理 程序 调用 它 时 ， 已 经 把 执行 RWTS 子 程序 所 需 前 
信息 建立 在 两 张 表格 中 ， 它 们 是 MO 控制 表 和 设备 特征 玫 。 

IOB 表 ， 妈 输入 /输出 控制 坎 表 ， 它 向 RWTS 子 程序 提供 : 磁盘 驱动 器 所 在 的 槽 号 及 具 
有 的 驱动 器 号 、 盘 的 卷 号 ， 要 访问 的 磁道 和 户 区 ， 以 及 读 或 写 软 盘 的 标志 ， 设备 特 征 玫 向 
RWTS 提供 操作 DISK 工 所 必需 的 信息 ， 并 将 此 IXO 控制 表 的 地 址 放 入 YY 和 A 寄 存 器 。 

这 样 用 户 直接 调用 RWTs9 子 程序 ， 必 须 首 先 建 立 IDB 表 及 设备 特征 表 ，APPLEY 提 
供 一 个 机 器 语言 程序 供用 户 建 立 这 两 个 表 。 


这 两 个 玫 的 内 容 如 下 : 
1. IOB 表格 式 
字 节 ($) 内 容 
0 表 类 型 ， 定 为 $01 
1 扩充 反 座 号 *16 
2 驱动 器 号 
3 卷 号 
4 要 进行 存 取 的 道 号 
5 要 进行 存 取 的 扇 区 号 
6 设备 特征 表 的 低位 字 闻 
7 设备 特征 玫 的 高 位 字 闻 
8 256 个 字 节 读 写 缓冲 区 地 址 的 低位 字 人 市 
9 256 个 字 节 读 写 缓冲 区 地 址 的 高 位 字 市 
A~B 未 用 
C 命令 码 (0: 查找 ，1: 读 区 段 ，2: 写 区 段 ，4: 格式 化 区 段 ) 
D 指出 执行 期 间 的 错误 类 型 ($10: 软盘 写 保 护 ，$20: 卷 号 不 匹配 ，$40: 
驱动 器 错 ，$80: 读 错误 ， 人 允许 重读 48 次 ) 
E 上 次 访问 时 用 的 卷 号 
F 上 次 访问 时 用 的 扩充 揪 座 号 *16 
10 上 次 访问 时 用 的 驱动 天 号 
2. 设备 特征 表格 
字 节 ($) 内 容 
0 设备 类 型 ， 使 用 DISK 了 ,必须 为 $00 
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| 每 道 步 进 道 数 ， 为 $0i 
2 一 3 马达 运转 时 间 计 数 的 补 码 ， 字 节 2 中 必须 是 $EF， 字 节 4 是 $Ds。 


按 上 述 要 求 什 立 才 格 后 ， 用 户 要 使 用 一 个 控制 子 程序 ， 将 IOB 表 的 地 址 存放 到 了 Y 和 A 
寄存 器 中 ，A 寄存 器 存放 高 位 地 址 字 节 ，Y 寄存 器 存放 低位 地 址 字 节 ， 并 转 RWTS 的 入 口 


地 址 $3D9。 


例 ， 试用 人 WTs 子 程序 读 出 17 道 0 区 的 YIOC 表 。 


第 一 步 ， 建 立 输入 /输出 控制 表 及 设备 特征 表 ， 假 设 玫 格 由 内 存 $ C0A 单元 开始 存放， 
使 用 的 扩充 插座 是 6， 驱 动 器 号 是 1。 把 17 道 0 区 的 VTOC 表 读 到 从 内 存 $2000 开始 的 存 


贮 区 中 
IOB 表 
单 元 内 容 
$CI0A 01 
$C6B 60 
$CoC 01 
4C0D 00 
$COE 11 
$COF 00 
$C10 20 
$C11 0C 
$C12 00 
$C13 20 
$C14 00 
$C15 00 
$C16 01 
$Cl17 00 
$C18 00 
$C19 60 
$C1A 01 
设备 特征 表 紧 接着 IOB 后 给 出 
$C20 00 
$C21 01 
$C22 EF 
$C23 Da8 
第 二 步 ， 用 机 器 语言 编写 控制 子 程序 ， 它 由 $C00 开始 存放 ; 
单 元 内 容 汇编 语言 
$C00 A90C LDA##$0C 
$C02 A00A LDY##$0A 
$C04 20D903 JSR $03D9 
$C07 60 RTS 
$C08 00 BR 开 
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说 明 

表 类 型 

扩充 插座 号 6*16 
驱动 器 号 为 1 


读 取 0 肩 区 

设备 特征 表 的 低位 字 节 

设备 特征 表 的 高 位 字 节 
读 到 内 存 $2000 开始 的 存 迪 区 


未 用 

未 用 

命令 码 ， $01= 读 

出 错 码 

实际 卷 号 

前 一 次 进行 存 取 的 扩 辑 搬 座 号 
前 一 次 进行 存 取 的 驱动 器 号 


设备 类 型 码 
每 道 步 进 道 数 


| 如 达 运 转 时 间 计数 


说 明 


IOB 表 地 址 高 位 字 节 送 A 寄 存 器 
IOB 表 地 址 低位 字 节 送 立 寄存 器 
转 人 RW'TS 子 程序 


第 三 步 ， 启 动 控 制 子 程序 ， 执 行 读 操作 。 

在 监控 系统 中 可 以 使 用 *C00G 命令 启动 。 

在 BASIC 中 可 以 用 CALEL 3072 谨 多 调用 。 

关于 机 器 语言 程序 及 表格 存放 在 内 存单 元 中 的 操作 过 程 以 及 监控 系统 命令 见 监控 系统 中 
的 叙述 。 | 

读 出 17 道 0 区 到 主 存 $2000 开始 的 存 贮 区 域 后 ， 可 以 在 监控 系统 下 显示 或 打印 VTOC 
表 ， 其 操作 请 参阅 监控 系统 中 的 有 关 令 述 。 

写 盘 操作 和 读 盘 操作 类 似 ， 通 常 所 要 修改 的 仅仅 是 IOB 表 中 的 命令 码 , 内 存 的 起 始 地 扯 
以 及 磁道 号 、 扇 区 号 。 


APPLETE PEUS 微机 的 监控 系统 是 一 个 高 效率 的 监控 系统 ， 它 具有 管理 存 贮 器 、 设 置 
外 部 设备 、 设 定 显示 方式 、 对 屏幕 进行 编辑 、 简 单 的 算术 运算 及 反 汇 编 等 功能 。 监 控 程 序 占 
2 开 字 节 的 内 存 容 量 ， 存 放 在 及 OM 的 最 高 地 址 区 域 $F 800 一 $FFRF 中 ， 这 个 监控 系统 具 
有 自 启 动 的 特点 ， 当 初始 开机 通电 ， 即 所 谓 “ 冷 起 动 " 时 ， 如 果 外 设 扩充 插座 上 插 有 磁盘 驱动 
器 控制 卡 ， 监 控 系 统 会 自动 启动 驱动 器 进入 盘 片 上 的 HELLO 程序 ， 如 果 没 有 盘 片 , 监控 自 
动 进入 英文 APPLE SOFT BASIC 。 

这 一 章 叙 述 在 调试 程序 时 常用 的 管理 存储 器 的 功能 及 反 汇 编 功 能 。 有 关 屏 幕 的 编辑 功能 
及 可 执行 的 控制 字符 已 在 第 二 章 中 令 述 过 。 


第 一 节 。” 存 储 器 的 组 织 


ATETLEI 的 存 贮 器 分 成 三 个 主要 部 分 ， 随 机 存 贮 器 RAM， 只 读 存 贮 器 ROM 及 输入 、 


输出 (IO ) 缓 冲 存 贮 器 。 
AI 工艺 工 使 用 6502 微 处 理 器 ， 地 址 总 线 16 位 ， 可 以 访问 65536 个 内 存单 元 , 这 些 内 存 
单元 划分 为 256 页 ， 每 页 256 个 单元 ， 其 中 十 六 进 制 的 地 址 前 两 位 表示 内 存单 元 所 在 的 页 


号 ， 后 两 位 表示 在 一 页 内 的 位 移 。 


一 、APPLE I 工 存 财 器 的 组 织 


AI 工 世 工 存 贮 融 的 组 织 如 图 5-1-1 所 示 。 
1。 随 机 存 贮 器 RAM 


存 迪 器 地 站 


- 用 途 
十 进 制 十 六 进 制 
0~ 人 255 $0000 一 $O00FF 系统 工作 单元 
RAM (48 玫 ) 
” 256~.511 $0100~$o1FF 堆栈 区 
IO (2 开 ) 512~ 人 767 $0200 一 $02FF 键盘 读 入 缓冲 区 
768~ 人 1023 $0300~$o3FF 监控 程序 的 转移 地 址 
LI/O ROM (2K) 一 | 一 
1024~2047 $0400 一 $o7FF 第 一 文本 区 或 低 分 辩 率 图 形 区 
ROM (12 站) | 2048~3071 $o800 一 $oBEEF 第 2 二 文本 区 或 第 二 低 分 辩 率 图 形 区 
3072~ 人 8191 $oCo00~$I1FEFF 
8192~16383 $2000 一 $3FEFF 第 一 高 分 辩 率 图 形 区 本 仿 
一 一 用 的 
16384~24575 $4000 一 $5FFEF 第 二 高 分 辩 率 图 形 区 RAM 
24576~49151 $6000~$BFFF 
5-1-1 图 5-1-2 


RAM 共 48&B,， 附 加 16KB 的 人 AM 和 苑 卡 可 必 充 到 64KB。RAM 的 组 织 及 他 .本 情况 
如 图 5-1-2 所 示 。 

2. 只 读 存 贮 器 ROM 

主机 上 只 读 存 贮 器 驻 留 12KB， 地 址 分 配 为 最 高 的 地 址 区 域 Dooo_SEEFE， 在 人 ROM 
中 主要 包括 具有 自动 启动 功能 的 监控 程序 及 APPLE SOFT BASIC 解释 程序 如 图 5-1-3 
所 示 。 


存 贮 器 地 址 
用 途 


十 进 制 十 六 进 制 
APPLE SOFT 
53248 必 63487 $D000~$EF7EFRF 
B AS 解释 程序 
63488 必 65535 $F8o0~$EFEFEF 有 动 启动 监 所 控 程 序 


5-1-5 


3. LI/O 存 贮 器 

由 于 6502CPU 没有 专用 的 MO 指令 ，: 故 采用 访 内 指令 访问 外 设 ，IO 存 赂 器 地 址 是 
$C000~$CFFF, 分 配 如 下 ， 

$C000 一 $C7FF 用 于 主机 板 及 接口 卡 外 设 ; 

$C800~$CFFE 用 于 各 接口 卡 的 ROM 扩充 。 

APPLE I 主机 电路 板 上 有 8 个 扩充 插座 ， 除 0 号 揪 座 外 , 其 余 7 个 都 可 接 外 部 设备 卡 。 
每 个 扩充 播 座 都 分 配 有 16 个 存 贮 单元 作为 一 般 输入 、 输出 用 ， 其 地 址 为 :$C080 一 $COFF。 
每 个 外 设 的 输入 、 输出 存 贮 区 如 图 5-1-4 所 示 。 


外 设 卡 输入 输出 存 几 区 插座 编号 


$Co80-$C: gF- 0 
$Co90 一 $CO9F 
$C:Ac 一 $COAF 


ka 坊 


$CoBJ 一 $CcBRF 3 

$coco~$CoCF 4 

$CcoDo 一 $CoDF 5 

$C0E0 一 $COEF 6 

$COF0 一 $COFE 7 
图 5-1-4 


对 应 每 个 播 座 有 一 页 ROM 存 贮 区 (256 字 节 ) 存 放 这 个 外 部 设备 的 驱动 程序 或 子 程序 , 这 
一 页 ROM 的 地 址 是 $Ca， 其 中 为 扩充 插座 的 编号 。 撒 座 0 没有 一 页 ROM 和 它 对 应 , 所 
以 不 能 用 来 插 汉 卡 及 其 它 外 部 设备 卡 。 外 设 控制 卡 相应 的 ROM 地 址 见 了 网 9-1-5。 

此 外 , 另 有 2K 的 ROM 存 贮 区 作为 所 有 外 设 控制 卡 的 共用 区 。 其 地 址 从 $C800 到 $CF 
FF。 尽管 这 个 空间 每 个 外 设 控制 卡 都 可 使 用 但 一 次 只 能 为 一 个 外 设 卡 使 用 , 作为 这 个 外 设 
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控制 卡 $- 动 程序 的 扩充 使 用 空间 。 


”- 了 


外 设 控制 卡 的 'RROM 区 域 


$C100 一 $CIFF 
$C200 一 $C2FF 
$C300 一 $C3FF 
$C400 一 $C4FF 
$C500 一 $C5FF 
$C600 一 $C6FF 
$C700 一 $C7FEF 


图 5-1-5 


二 、 使 用 C-PLUSI-A 汉 卡 时 存 贮 器 的 组 织 

使 用 C-PLUST-A 汉 卡 时 存 贮 器 的 组 织 如 图 5-1-6 所 东 。 其 中 汉 卡 占用 的 内 存 区 域 有 
两 个 。 

1。$4000 一 $5FFF 

相当 于 英文 系统 中 高 分 辨 率 图 形 第 二 页 的 显示 区 ， 用 于 中 文字 幕 显示 。 

2。$9000 一 $95FF 汉 卡 组 字 区 域 


系统 人 AM 


可 使 用 的 存 贮 区 


可 使 用 的 存 贮 区 
C-PLUSI -A 使 用 的 存 贮 区 : 组 字 区 域 
DOS 操作 系统 
硬件 MO 地 址 
APPLE SOFT ROM 


自动 启动 ROM 
加 5-1-6 
1124。 


DOS 操作 系统 装 入 到 主 存 的 $9600~$BFFEF 区 域 。 

$0800 一 $3FFF 及 $6000 一 $8FFEF 这 两 个 存 贮 区 域 是 用 户 可 使 用 的 区 域 。 

汉 卡 使 用 的 IO 存 贮 区 视 汉 卡 揪 在 哪个 扩充 插座 上 而 定 。 当 汉 卡 揪 在 3 号 扩充 插座 上， 
汉 卡 驱动 程序 不 仅 使 用 了 自己 的 一 页 ROM 序 贮 区 $C300 一 $C3FE， 而 且 使 用 了 $C800 一 
$CFFEF 这 个 外 设 控制 卡 共用 的 3K 字 节 ROM 存 贮 区 。 用 下 面 将 要 叙述 的 反 汇 编程 序 可 以 
打出 汉 卡 驱动 程序 的 汇编 清单 。 


二 闻 APPLE 9OFT 程序 使 用 的 存 贮 器 


这 一 节 介 绍 APPLE SOFT BASIC 程序 使 用 存 贮 器 的 情况 。 若 RAM 为 48 代 ，DO9S 
操作 系统 常 驻 $9600 一 $BFEEF 内 存 区 域 。 
一 、 定 义 变量 码 冲 区 的 APPLE SOFT 语句 

APPLE SOFT 提供 了 重新 分 配 变量 缓冲 区 的 语句 HIMEM 和 LOMEM。 

1，LOMEM 

定义 变量 缓冲 区 的 下 限 地 址 。 

格式 ， LOMEM: 地 址 ”其 中 地 址 须 用 十 进 制 表示 ， 其 值 必须 小 于 65535。 

监控 系统 及 BASIC 解释 程序 把 比 LOMEM 小 的 存 贮 区 留 给 打 印 机 、 低 分 辩 率 图 形 以 及 
屏幕 显示 等 使 用 ， 当 APPLE SOFT 程 厚 从 磁盘 加 载 到 存 贮 器 时 ， 它 存放 在 比 LOMEM 地 
址 小 的 存 贮 区 域 。 输 入 一 个 程序 或 修改 程序 时 ，LOMEM 值 自动 随 着 调整 。 

可 以 使 用 LOMEM 语句 定义 变量 缓冲 区 的 下 限 地 址 ， 多 留 出 一 些 存 贮 单元 ， 以 便 给 机 
器 语言 子 程序 或 高 分 辨 率 的 图 形 表 使 用 。 

用 NEW 命令 或 CTRL-B 清除 一 个 程序 ”LOMEM 值 也 随 着 改变 。 

在 主 存 的 0 页 $69 一 $6A 单元 保存 了 LOMEM 值 。 可 以 在 监控 系统 中 输出 $69 及 $6A 
单元 内 容 ， 显 示 当 前 LOMEM 值 ， 也 可 以 用 PRINT PEEK(106)*256 + 了 PEEK(105) 命令 
显示 LOMEM 值 : 

2。HIMEM 

定义 变量 缓冲 区 的 上 限 地 址 。 

属 式 ，HIMEM: 地 址 

当 DOS 加 载 之 后 ， 机 器 自动 设 定 HIMEM 值 ， 把 DOS 置 于 HIMEM 地 址 以 上 的 空 
闻 ， 对 具有 48 RAM 的 机 器 ， 在 英文 系统 中 ，HIMEM 是 $9600， 使 用 汉 卡 时 ， 汉 卡 组 
字 区 域 占 用 了 一 部 分 存 贮 空 间 , HIMEN 下 移 到 $8FFEFE。 如 果 使 用 DOS 中 的 MAX FILES 
为 文本 文件 留 出 缓冲 区 , 每 一 个 额外 的 缓冲 区 会 使 HIMEM 向 下 移 595 个 字 节 。 用 户 也 可 以 
自己 设 定 HIMEM. 值 ， 在 HIMEM 之 上 留 出 额外 的 空间 来 保存 有 用 的 机 轿 语 言 子 程序 、 高 
分 辩 率 的 图 形 玫 或 两 段 程序 共用 的 数据 。 

NEW，RUN 及 CLEAR 均 不 会 改变 HIMEM 的 值 。 

在 主 存 的 0 页 $73 一 $74 单元 保存 了 HIMEM 值 。 可 以 在 监控 系统 下 显示 HIMEM 值 ， 
也 可 以 使 用 PRINT PEEK(116)*256+PEEK(115) 命 令 显 示 HIMEM 值 。 

如 果 把 [COMEM 值 定 义 得 高 于 HIMEM 值 ， 或 保 于 现 有 的 工 DOMEM 值 ， 将 导致 存 贮 
器 不 够 用 的 错误 信息 ; 
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二 、APPLE SOFT 程序 使 用 的 存 凡 器 

APPLE SOFT 程序 由 地 址 $800 开始 往 高 地 址 方向 存放 ,并 使 LOMEM 值 自 动 往 上 调 
整 。 ~ 

简单 变量 及 字符 串 变 量 的 指针 由 LOMEM 所 指 的 地 址 开始 往 上 存放 ， 即 置 于 程序 之 上 。 

数组 及 字符 串 数 组 的 指针 置 于 简单 变量 及 字符 串 变 量 指针 之 上 ， 字符 串 的 值 由 HIMEM 
所 指 的 地 址 开始 往 下 存放 ， 并 自动 调整 HIMEM 值 。 

APPLE SOFT 使 用 存 贮 器 情况 如 图 5-2-1 所 示 。 

在 0 页 保存 有 存放 这 些 指针 的 起 始 单元 地 址 及 结束 单元 地 址 。 

$67 一 $68， 指 示 程 序 在 内 存 中 存放 的 起 始 地 址 。 地 址 高 位 在 $68 单元 ， 低 位 在 $67 单 


TU 
HIMEM 
字符 串 由 HIMEM 往 下 存 
数组 及 字符 串 数 组 指针 
简 变 量 及 字符 串 指针 由 LOMEM 开始 往 上 存放 
LOMEM 
程序 由 $800 开始 往 上 存放 LOMEM 往 上 增加 
$800| 


5-2-1 
$69 一 $6A :存放 LOMEM 值 ， 即 存放 变量 及 字符 串 指 针 的 起 始 地 址 ; 
$6B 一 $6C: 指 示 存 放 数 组 及 字符 串 数 组 指针 的 起 始 单元 地 址 ; 
$6D 一 $6E,: 指示 存放 数组 及 字符 串 数组 指针 的 结束 单元 地 址 ; 
$6F 一 $70: 指示 当前 字符 串 存放 的 起 始 地 址 ; 
$73 一 $74: 存放 HIMEM 信 8 
在 监控 系统 中 输出 这 些 单元 中 的 内 容 可 以 了 解 一 个 程序 运行 中 使 用 存 贮 器 的 情况 。 


三 、 中 文 APPLE SOFT BASIC 程序 使 用 的 存 凡 器 


中 文 AFL SOFT 程序 使 用 存 贮 器 的 情况 如 图 5-2-2 所 示 。 

由 于 汉 卡 组 字 区 域 使 用 $9000 一 $95FEF 区 域 ， 使 HIMEM 往 下 调整 为 $8FFF。 

中 文字 幕 显示 缓冲 区 使 用 $4000 一 $5FFF 区 域 ， 使 用 户 可 使 用 的 RAM 分 割 成 二 部 分 ， 

$0800 一 $3FEFEF 区 域 存放 中 文 BASIC 程序 及 变量 、 字 符 串 指针 、 数 组 及 字符 串 数 组 指 
针 8 

$6000 一 $8FEE 区 域 存 放 字 符 串 值 。 

这 样 ， 若 程序 大 于 14 开 ， 它 将 侵入 中 文字 幕 显 示 区 域 $4000~ 一 $5FFF， 造 成 程序 运行 错 
误 或 出 现 混乱 的 屏幕 显示 图 形 ， 如 梁 变 量 及 数组 定义 过 多 过 大 ， 即 使 程序 小 于 14 民 ， 仍 有 可 
能 侵入 中 文字 幕 显示 存 贮 区 。 

若 光 次 量 很 大 ， 变 量 及 字符 串 空 间 相 对 不 足 ， 也 会 便 入 中 文字 幕 显示 缓 冲 区 。 
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所 以 ， 如 何 合理 使 用 存 贮 器 ， 分 配 程序 及 变量 空间 是 设计 汉字 信息 处 理 系 统 要 考虑 的 一 
个 重要 问题 ， 可 以 使 用 HIMEM 及 LOMEM 语句 重新 分 配 变量 室 闻 ， 比 如 把 LOMEM 设 
定 为 $6000, 如 图 5-2=-3 所 示 。 

若 系统 程序 很 大 ， 通 常 采 用 覆盖 技术 ， 把 暂时 没有 用 到 的 信息 存放 在 盘 上 ， 需 要 时 调 入 


$800 
中 文 BASIC 程序 
LOME 
变量 及 字符 串 指针 
数组 及 字符 串 数 组 指针 
$4000 -- 
中 文字 幕 使 用 的 存 贮 区 
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$800 

中 文 BASIC 程序 
$406C0 

中 文字 幕 使 用 的 存 贮 区 
4$5FF 一 LoMEM 
?800 变量 、 字 符 串 、 数 组 、 字 符 串 数组 及 其 指针 
$9000 -<-HIMEM 


5-2-3 
内 存 。 关 于 多 段 程序 间 的 链接 可 参阅 第 四 章 。 


第 三 节 监控 命令 


.这 里 仅 给 出 管理 存 贮 器 及 CPU 中 五 个 寄存 器 的 命令 ， 存 贮 器 的 地 址 以 十 六 进 制 表 示 。 
1.. 显示 某 一 地 址 单元 中 的 内 容 
命令 格式 ， * 地 址 RETURN 
例 1 显示 69H 单元 中 的 内 容 使 用 如 下 的 命令 ; 
]CALL-151 
#69 
0069-47 
显示 内 容 “47" 后 ， 紧 接着 在 下 一 行 显示 。。 
2. 显示 由 当前 地 址 到 满 模 8 的 8 个 单元 中 的 内 容 
命令 格式 ，*RETURN 
例 1 中 显示 69H 单 元 中 内 容 之 后 , 监控 系统 记忆 这 个 地 址 , 作为 以 后 检查 存 贮 器 的 起 始 位 
。J127 。 


。 在 第 一 个 * 后 按 RETURN 键 ， 继 续 显示 由 当前 地 址 到 满 模 8 的 前 一 地 址 单元 中 的 内 
。 在 第 二 个 。 后 ， 每 次 按 RETURN 键 ， 顺 序 显 示 8 个 单元 的 内 和 瞪 。 
例 2 显示 从 例 1 的 当前 地 址 到 满 模 8 的 单元 中 的 内 容 ， 操 作 如 下 ; 
任 
2A 55 2A 55 2A FF 
0070-8FE FF 8FE 00 90 下 FE ER 
0078- 01E5 0B FF 0000 08 04 
由 $67 一 $74 单元 中 的 内 容 ， 可 以 了 解 到 用 户 程序 使 用 存 贮 器 的 情况 。 这 里 是 一 个 用 户 
程序 装 入 之 后 而 尚未 执行 时 所 显示 的 $67 一 $74 单元 中 的 内 容 。 
$67 一 $68 是 程序 在 内 存 中 存放 的 起 始 地 址 ， 为 $801，$69 一 $6A 存放 LOMEM 值 ，$ 
69 单元 存放 LOMEM 的 低位 字 节 ，$6A 存放 高 位 字 节 ， 它 为 $2A47 ， 可 见 用 户 程序 占用 
内 存 $801 一 $2A47 的 区 域 ， 由 于 程序 尚未 运行 ， 所 以 $6D 一 $6E 与 $6B 一 $6C 中 均 为 2 A 
55、$73 一 $74 指出 HIXEM 为 $9000, 而 $6F 一 $70 的 8FFE 指出 字符 串 竺 放 的 起 始 位 置 。 
3. 显示 一 个 存 贮 器 区 域 中 的 内 容 
命令 格式 ，* 地 址 工地 址 2 RETURN 
例 3 试 查阅 汉字 字符 串 存 贮 区 中 8FAOH~8FDOH 的 内 容 。 操 作 实例 如 下 ， 
#8FA0.8EFD0 
8FA0 一 68 64 62 68 67 20 69 74 
8FA8 一 65 20 6D 6D 6F 6B 20 65 
8FB0 一 69 72 20 6D 68 77 6C 20 
8FB8 一 62 75 20 75 75 20 68 71 
8FC0 一 6D 20 6F 71 20 62 20 76 
8FC8 一 68 71 6D 20 6E 69 72 20 
8FD0 一 79 
4。 显示 从 当前 地 址 到 某 一 地 址 区 域 的 内 容 
命令 格式 : *。 地 址 人 了 ETIURN 
例 4 试 查阅 从 例 3 中 的 当前 地 址 开始 到 8FFOH 区 域 中 的 内 容 。 操作 实例 如 下 ， 
ee8EHF0 
8FD1 一 72 6E 6C 20 61 6E 20 
8FD8 一 62 6D 72 20 65 79 78 20 
8FE0 一 6B 20 68 62 6E 64 20 76 
8FE8 一 73 6D 62 20 76 79 72 6E 
8FF0 一 6C 
从 地 址 8FD8H 到 8FE6H 的 内 存 区 域 存 放 了 “同济 大 学 ”编码 字母 的 十 六 进 制 ASCI 值 。 
5。. 修改 存 贮 器 某 一 单元 的 内 容 
偷 令 格式 ，s :新 内 容 RETURN 
例 5 试 将 6000HL 单元 中 的 内 容 修改 为 “ 同 ? 字 的 第 一 个 编码 字母 的 ASCI 码 63w， , 林 
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例 的 操作 中 ， 第 一 个 *6000 命令 显示 当前 6000H 单元 中 的 内 容 ，*:62 命令 把 6000H 单元 内 
容 修改 为 62， 第 二 个 *6000 命令 检查 修改 后 的 6000H 单元 内 容 。 

s*6000 

6000 -79 

#202 

sa6000 

6000-- 62 

6。 修改 某 一 个 存 贮 区 域 中 的 内 容 

命令 格式 ， *: 新 内 容 1 新 内 容 2 .mm…RETURN 

例 6 试 把 7000H 一 7003H 中 的 内 容 修改 为 “ 同 ? 字 的 编码 中 文字 母 ASCT 码 ^“62 6D 72 
20?。 修 改 操 作 如 下 ， “ 

7000 

7000- FF 

*:62 6D 72 20 

#1000 

7000- 62 

6D 72 20 FF FF 00 00 

7. 复制 一 个 存 鱼 区 域 中 的 内 容 : 

命令 格式 ，* 地 址 1<< 地 址 2. 地址 3M RETURN 

执行 这 个 命令 把 地 址 2 到 地 址 3 这 个 存 贮 区 域 中 六 内 容 复制 到 以 地 址 1 为 起 始 地 址 的 存 
贮 区 中 。 

地 址 2 必须 小 于 或 等 于 地 址 3， 如 果 地 址 2 大 于 地 址 3, 监控 系统 只 把 由 地 址 2 算 起 的 一 
个 字 节 移 到 地 址 1， 然 后 结束 这 条 命令 的 执行 。 

例 7 试 清除 $401 一 $501。 

先 将 0 存 到 这 个 存 贮 区 域 的 第 一 个 地 址 单元 中 

站 401 

0401- FF 

幸 200 

然后 执行 下 面 这 个 命令 : 

s402<401.500M 

监督 系统 先 将 $401 中 的 内 容 ， 即 00 移 到 $402， 当 移动 第 二 个 字 节 时 ， 监 督 系统 取出 
$401 中 的 内 容 (这 时 已 为 00) 送 $402， 这 个 过 程 重复 执行 直到 $500 中 的 内 容 移 到 $501 时 
为 止 。 使 用 命令 *401.501， 可 以 检查 上 述 命令 执行 结果 。 

如 果 要 用 一 个 特定 的 ASC Hi 码 填 满 这 个 存 贮 区 域 ,只 要 把 这 个 值 预先 存 到 这 个 存 贮 区 域 
的 第 一 单元 中 ， 然 后 执行 相同 的 过 程 。 

例 8 试用 AsCEI 码 62，6D，72，20 填 入 $400 一 $4FF 的 内 存 区 域 中 。 

首先 把 这 四 个 值 输入 由 $400 起 始 的 4 个 字 节 中 ; 


。129 。 


#400 
0400 一 卫 王 
#:62 6D 72 20 
再 输入 命令 : 
*404<400.4FBM ， 
原始 存 贮 区 的 结束 位 置 等 于 将 被 填 满 的 存 贮 区 最 后 一 个 单元 地 址 减 去 上 面 设 定 的 内 容 长 
度 之 差 。 
例 9 试 把 $8FA0 一 $8FF0 的 内 容 复 制 到 $400 开始 的 存 贮 区 中 。 
输入 命令 ，s*400<<8FA0.8FFOM 执行 复制 过 程 。 
8. 比较 存 贮 器 中 的 内 容 
命令 格式 ， * 地 址 1<< 地 址 2 地址 3VRETURN 
执行 这 个 命令 ， 把 地 址 2 到 地 址 3 中 的 内 容 和 地 址 1 开始 的 存 贮 区 内 容 依次 逐个 比较 ， 
寺 到 所 有 单元 中 的 办 容 比 较 完 为 止 ， 如 采 正 确 ， 在 比较 命令 下 面 一 行 显示 一 个 w， 如 果 不 正 
确 ， 则 显示 其 出 错 地 址 以 及 两 个 不 相同 的 值 。 出 错 内 容 显 示 在 前 ， 参 考 内 容 紧 接着 在 括号 中 
显示 出 来 。 
例 10 试 比 较 $7000 一 7003 和 $8FD8 一 $8FDB 两 个 存 贮 区 中 的 内 容 。 
从 例 4 及 例 6 知道 这 两 个 存 贮 区 中 内 容 都 是 62 6D 72 20 
s#7000。7003 
7000-62 6D 72 20 
s*8FD8.8FDB 
8FD8-62 6D 72 20 
输入 比较 命令 ， 
#8FD8<7000.7003V 
结果 正确 
现 将 8FD9 修改 为 6B. 
#8FD9 
8FD9-6D 
#3 6 了 。 
输入 比较 命令 : 
s#8EFD8<7000.7003V 
比较 结果 不 正确 ， 显 示 错 误 地 址 及 内 容 
7002-6D(6B) 
当 把 内 存 中 的 程序 存 到 盘 上 后 ， 可 以 把 这 个 程序 重新 读 到 内 存 中 另 一 个 存 贮 区 ， 比 较 这 
两 个 存 贮 区 内 容 ， 就 可 以 判别 盘 读 、 写 是 否 出 错 ， 这 时 ， 比 较 命 令 是 很 有 用 的 。 
例 11 试 将 $800 开始 的 汉字 处 理 程 序 在 入 磁盘 ， 重 新 读 出 到 $6000 开始 的 存 贮 区 后 ， 
比较 两 个 存 贮 区 的 内 容 。 
从 汉字 系统 使 用 存 贮 区 的 图 示 中 ,已 知道 $6000 开始 的 存 贮 区 是 分 配给 变量 及 字符 串 变 
量 ， 当 程序 还 没 执 行 时 ， 这 个 存 贮 区 是 可 以 使 用 的 ， 所 以 把 盘 上 的 内 容重 新 读 到 这 一 区 域 。 
比较 过 程 如 下 ; 
e 1T30 e 


第 一 步 ， 在 DOS 支持 下 输入 BSAVE 命令 ， 把 程序 存 到 盘 上 
.BSAVE 文件 名 ，A$800，L$1800 
”第 二 步 ， 输 入 BLOAD 命令 ， 拒 程序 读 回 内 存 
BLOAD 文件 名 ，A $6000 
第 三 步 ， 进 入 监控 系统 
CALL-151 
最 后 ， 输 入 比较 命令 ， 
#800<<6000、8000V 、 
如 果 没 有 不 相符 的 内 容 出 现 ， 可 以 确定 程序 已 被 正确 写 入 磁盘 了 。 
9. 检查 和 改变 CPU 中 寄存 器 的 内 容 
监督 系统 在 内 存 中 保留 5 个 位 置 ($45 一 $49)， 用 以 存放 CPU 中 的 寄存 器 A，X，Y,P 
和 S 的 内 容 ， 其 中 ， 
A， 累 加 器 、 保 存 八 位 算术 和 逻辑 运算 结果 ; 
X，Y: 两 个 变 丰 寄存 器 ， 存 放 变 址 寻 址 方式 中 的 地 址 位 移 量 ; 
P， 状态 寄存 器 ， 保 存 CPU 的 状态 ， 状 态 字 有 
NV.BDIZC。 
其 中 C 一 进位 标志 ; 
2 一 零 标志 ， 执 行 结果 为 0，Z=1s 
[一 中 断 禁 止 标志 ，I= 1 禁止 中 断 ; 
D 一 十 进 制 运算 标志 ，D = ! 为 十 进 制 运 算 
B 一 断 点 中 断 标 志 ; 
V 一 溢出 标志 ，V = 1， 结 果 溢 出 # 
N 一 符号 标志 ，N = 1 为 负 。 
在 监督 系统 中 使 用 CTRL 一 E 可 以 检查 寄存 器 
#(C 工 REL- 王 人 RETETURN 
显示 
A=CDX=BIY=D8P=B59=EI0 
监控 系统 把 含有 寄存 器 A 内 容 的 存 贮 地 址 作为 可 修改 的 入 口 地 址 ， 所 以 ， 如 果 要 改变 寄 
存 器 Y 中 的 内 容 ， 必 须 依 次 打 入 A 及 X 的 正确 内 容 ， 再 打 入 立 的 修改 值 ; 
#:CD BL CC3 
再 输入 CTRL 一 下 命令 ; 
s( 工 RL -了 RETURN 
监控 系统 修改 寄存 器 立 中 的 内 容 ， 显 示 
A=CDX=BIY=C3P=B5S=FI0 


第 四 节 反 汇 编 


机 器 语言 是 计算 机 上 效率 最 高 的 语言 , APPLEI PLUS 的 DOS3.3 系统 程序 是 用 机 器 
证言 编写 的 。 固 化 的 系统 监控 程序 以 及 外 设 的 驱动 程序 也 都 是 用 机 器 语言 编写 的 。 当 一 个 用 
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机 器 语言 编写 的 程序 存放 在 内 存 时 ， 可 以 使 用 第 三 节 中 的 监控 命令 把 内 存 中 的 程序 显示 或 打 
印 出 来 ， 但 是 ， 由 于 指令 都 是 用 16 进 制 形式 表示 ， 且 各 个 指令 包含 的 字 节 数 不 相同 , 需要 逐 
条 查 对 才能 理解 它 。 所 以 象 汉 卡 驱动 程序 这 样 较 大 型 的 程序 ， 要 从 机 器 语言 程序 中 了 解 它 是 
十 分 困难 的 。 汇 编 语言 程序 比 机 器 语言 程序 容易 赎 ， 容 易 理解 ， 也 容易 编制 。 

在 APPLE 监控 系统 中 提供 反 汇 编 子 程序 , 它 可 以 把 机 器 语言 转变 为 汇编 语言 的 格式 显 
示 或 打印 。 

命令 格式 ， 

(1) * 地 址 1L RETURN 

这 个 命令 将 地 址 1 开始 的 20 条 袖 器 语言 指令 转变 为 汇编 语言 格式 显示 在 屏幕 上 , 如 果 打 
印 机 已 接 通 ， 打 印 输出 ， 然 后 返回 监控 。 

例 1 打印 汉 卡 驱动 程序 的 汇编 语言 程序 。 

POK 马 1403，1 


]LCALL=-151 
s(L300LL 
L300- “18 CELC 
L301- ”90 30 BCLCC $CLC333 
L303- ”38 9ECL 
L304- “80 20 BCLC9  $CLC333 
C306- 4C 91 CC8 JMP  $CL891 
C309- 4L 9A CC8 JMPE  $LC89A 
C30C- 4C A3 C8 JME，$C8A3 
C30F- 40 AL (L8 JMP 9$C8AC 
C312- 4 B5 (人 8 JMP 94CLC8B5. 
C315- 4 CC9 L8 JMP  $C8CL9 
L31B- 4CL CE C8 JMP  $C8CF 
C31B- 4L D5 L8 JMP  $C8D5 
C31E- 4CDB CLC8 JMP  $C8DB 
C321- 4CE1 CC8 JMP 4$4C8E1 
L324- 4L 卫 7 C8 JMPE  $C8E7 
C327- 4CED C8 JMP  $C8ED 
CL32A- 4LE3 (L8 JMP  $C8F3 
C32D- 4LEFE9 G8 JMP  $C8F9 
L330- 4L BE C8 JMP  $C8BE 
L333- 48 PHA 


值得 注意 的 是 ， 这 里 输出 的 是 20 条 机 器 指令 ， 由 于 机 器 指令 可 能 是 单字 节 , 双 字 节 或 三 
字 节 的 ， 所 以 在 监控 系统 中 把 命令 中 的 地 址 1 送 到 PC 计数 器 (程序 计数 器 )， 再 由 字 节 长 度 
调整 PC 值 ， 并 进行 计数 ， 直 至 输出 20 条 指令 后 返回 监控 系统 。 

(2) sLL 人 RETURN 

在 * 地 址 1L 命令 执行 之 后 ，PC 计数 器 指向 下 一 个 指令 的 存 贮 器 地 址 , 所 以 尽管 这 个 命 
令 没 有 设 定 显示 的 起 始 地 址 ， 监 控 系统 仍 会 将 接 下 去 的 20 条 指令 显示 或 打印 出 来 。 
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sf 

C334- 
CL335- 
C336- 
L339- 


L33A- 
(C3 3DL- 
L33 上 上 - 


L341- 
CL342- 
CL345- 
人 L347- 
CLC348- 


CL34A- 
C34D- 
CL34E- 


C352- 
C353- 
CL354- 
C355- 


C356- 


CLF 


L8 


01 


07 


94 


05 


TXA 
PHA 
BIT 
9 
JSR 


TSX- 


LDA 
CLi 
STA 
AND 
TAX 
BCS 
STA 
LDA 
STA 


工 XA 


ASL 
ASL 
ASL 
ASL 


$CFEFRF 
$C88A 
$0100，X 


.$07F8 


#$OF 


$C36F 


$9469 


#$00 


$0578， 驻 
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第 六 章 超级 汉 卡 


S.C.C.G-83 超级 汉 卡 是 C-PLUSIT-A 汉 卡 的 改进 型 , 支持 它 的 操作 系统 是 CCDOs， 
存放 在 专用 的 超级 汉 卡 系统 盘 上 。 为 叙述 方便 ， 我 们 把 C-PLUS TI-A 汉 卡 称 为 现 有 汉 卡 。 

超级 汉 卡 系统 提高 了 屏幕 显示 的 利用 率 ， 简 化 了 汉字 输入 方法 ， 对 中 文 码 作 等 长 处 理 ， 
解决 了 现 有 汉 卡 中 由 于 中 文 编码 长 度 不 等 导致 的 编程 不 便 等 问题 。 扩 充 了 现 有 汉 卡 的 功能 ， 
如 增加 了 22 种 字母 组 输出 供用 户 选用 ， 其 中 包括 英文 、 日 文 、 德 文 、 俄 文 、 美 术 字 等 ， 可 
使 打印 的 报表 更 美观 ， 扩 充 了 和 英文 BASIC 兼容 的 语句 SPC,TEXT,POS,TAB,，HTAB， 
VTAB，HOME，iINVERSE，NORMAL 等 ， 并 加 强 了 现 有 汉 卡 中 的 PRINT 功 能 ， 使 它 和 
英文 系统 中 的 PRINT 功能 兼容 。 在 超级 汉 卡 系统 中 不 能 使 用 的 英文 BASIC 语句 有 7 个 。 
它们 是 : 

FLASH，GR，PLOT，HLIN，VLIN，COLOR，SCRN。 

其 中 除了 FLASH 外 ， 全 是 绘图 语句 。 

在 超级 汉 卡 系统 中 还 提供 了 中 文 BASIC 与 英文 BASIC 系统 相互 转换 的 语句 ， 它 们 可 
以 直接 用 在 程序 中 。 

超级 汉 卡 字母 组 常 驻 内 存 , 若 使 用 的 系统 盘 未 经 重新 选择 字母 组 ,字母 组 表格 占用 $7200 
一 $9000 存 贮 空间 ， 从 而 使 用 户 可 使 用 的 变量 .数组 存 贮 区 较 之 现 有 汉 卡 减少 了 很 多 。 为 此 ， 
系统 允许 用 户 选择 高 分 辩 率 第 一 页 (PG1) 存 贮 区 ($2000 一 $3FFEF ) 或 高 分 辩 率 第 二 页 (PG2) 
存 贮 区 ($4000 一 $5FEEEF ) 作 为 中 文字 幕 存 贮 区 ， 以 便 调 整 程序 存 贮 区 与 变量 、 数 组 存 贮 区 的 
比例 。 


第 一 节 ”超级 汉 卡 系统 盘 


超级 汉 卡 系统 盘 上 的 文件 索引 如 下 ， 
]CATALOG 

C1982 DSR A#254 

s*。A 106 CCDOS 
B 003 IDo9TAMP 

s#A 003 PRINT ALL SET 

* 了 B 002 RETCCDOS 

sB 005 SETA 

*# 了 也 005 SETB 

# 了 005 9S9ETC 

# 忆 005 9ETD 

# 了 有 005 SETE 

# 也 005 9ETE 

*# 了 005 SETG 
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sSB 005 9ET 瓦 

s# 了 B 005 SETI 

s#B 005 SETIJ 

# 了 了 005 SETRK 

# 了 B 005 SETL 

*# 也 005 SETM 

*#B 005 9ETN 

s 了 B 005 SETO 

#B 005 SETP 

* 了 B 005 SETQ 

*# 了 了 005 SETR 

*# 了 了 005 SETS - 

# 也 005 SETT 

* 了 005 SETU 

# 了 005 9ETV 

*A 016 DEMO 

s*A 006 MODIFY 

*A 005 NEWDEMO 

1。CCDOS 

CCDOS 昌 支 持 超级 汉 卡 的 操作 系统 ， 开 机 启动 时 ， 它 被 装 入 执行 ， 直 接 进 入 超级 汉 卡 
系统 状态 。 在 索引 表 上 ， 它 是 以 符号 A 为 标志 的 APPLE SOFT 程序 。 在 提示 符 ] 下 ， 可 
以 输入 RUN CCDOS 命令 装 入 执行 。 

2。DEMO 

它 是 一 个 程序 文件 ， 包 含 超级 汉 卡 的 使 用 说 明 ， 用 RUN DEMO 命令 调用 。 程 序 中 ,每 
个 屏幕 页 输出 显示 语句 之 间 捅 入 一 个 延 时 循环 语句 ， 使 得 每 个 屏幕 页 显示 一 定时 间 ， 以 利 阅 
读 。 整 个 说 明 反 复 显 示 ， 用 户 不 再 阅读 时 ， 可 以 用 CTRL=-C 中 断 程序 运行 。 如 果 要 打印 这 
个 使 用 说 明 ， 输 入 如 下 语句 : 

] LOAD DEMO 

] POK 瑟 1659，2 

] POKE 2043，100 

] POKE 1403，1 

] RUN 

] POKE 1403，255 

3. NEWDEMO 

这 是 一 个 程序 文件 ， 对 DEMO 的 说 明 作 了 如 下 的 补充 ， 

(1) 补 元 说 明日 文 、 俄 文 、 美 术 字 的 字体 8 

(2) 超级 汉 卡 系统 与 现 有 汉 卡 相互 转换 的 说 明 ! 

(3) 在 同一 个 程序 中 可 以 自动 完成 中 文系 统 与 英文 系统 之 间 相互 转换 的 说 明 。 

4。SET A~SET U 

SET A~9SET U 是 超级 汉 卡 系统 中 增加 的 22 种 字母 组 的 表格 文件 ， 它们 都 是 不 可 裤 行 
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的 二 进 制 文件 。 

5。PRINT ALL SET 

这 是 一 个 程序 文件 ， 执 行 这 个 程序 ， 先 打开 打印 机 ， 选 取 打 印 格式 及 打印 字体 等 参数 ， 
然后 逐一 装 入 SET A 一 SET U 表格 文件 ， 显 示 并 打印 各 个 文件 表 目 及 相应 的 字母 组 。 打 印 
结束 ， 关 闭 打印 机 。 显 示 及 打印 的 字体 依赖 于 当时 用 户 所 选择 的 22 种 字母 组 中 的 第 0 组 及 
第 1 组 , 表 目 SET A~SET U 以 第 0 组 字体 打印 , 22 种 字母 组 表格 以 第 1 组 字体 打印 。( 详 
细 见 下 面 叙述 )。 

6。IDSTAMP 

这 是 一 个 不 可 执行 的 二 进 制 文件， 它 记 录 了 用 户 选 用 的 中 文字 幕 显示 页 (PG 1 或 PG 2) 
及 字母 组 (SET A~SET U)。 系 统 多 许 用 户 一 次 最 多 选取 10 组 、 各 组 编号 依 选择 输入 的 顺 
序 分 别 为 0 一 9， 其 中 第 .0 组 定义 为 开机 预定 的 文字 、 或 重新 装 入 CCDOS 时 屏幕 上 显示 及 
打印 的 字符 格式 。 这 个 文件 在 下 述 的 MODIEFY 程序 运行 时 以 BLOAD 命令 调用 , 用 户 可 以 
任意 修改 这 个 文件 ， 选 择 合适 的 中 文字 幕 显示 页 及 字母 组 ， 修 改 结束 后 以 BSAVE 命令 重新 
写 入 。 在 CCDOS 装 入 时 ， 根 据 文件 中 记录 的 用 户 一 次 选用 的 字母 组 数 ，CCDOS 调 入 相应 
的 字母 组 表格 。 

7。MODIFY 

这 是 一 个 修改 IDSTAMP 文件 的 APPLE SOFT 程序 文件 。 程 序 执行 时 ， 先 装 入 ID， 
STAMP 文件 ， 然 后 依次 提示 用 户 选择 中 文字 幕 显示 的 缓冲 区 ， 选 择 第 0 组 及 开机 预定 的 字 
母 组 以 及 选择 增加 几 组 字母 组 等 ， 并 把 这 些 参数 重新 写 入 IDSTAMP 文件 ， 同 时 存 贮 到 以 
896 起 始 的 存 贮 区 ， 以 便 CCDOS 调用 ， 最 后 执行 CCDOS 程序 。 

.8 了 ETICCDOs 

这 是 一 个 二 进 制 文件 。 当 现 有 汉 卡 系统 进入 超级 汉 卡 系统 ， 须 先 装 入 这 个 文件 。 


第 二 节 系统 修改 


.超级 汉 卡 操作 系统 具有 自我 修改 的 能 力 ， 可 适合 多 种 不 同 用 途 。 

系统 修改 包括 下 面 三 部 分 

1， 汉字 字幕 显示 缓冲 区 的 选用 。 使 用 者 可 选用 PG1 或 PG2; 

2. 字母 组 数目 及 组 号 的 修改 。 使 用 者 可 选用 22 种 字母 组 中 的 任意 几 组 ， 但 一 次 最 多 只 
能 选用 十 组 


中 文 卡 


NO, CC 一 83 


HGR PAGE2* 现 有 ioSET:ABDFHIKLVS 一 上 指示 行 
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$， 是 否 成 为 (TURNKEY 系 统 及 选择 TURNKEY 的 文件 名 。 
系统 修改 必须 在 开机 进入 超级 汉 卡 系统 后 进行 。 在 中 文 BASIC 状态 下 执行 MODIFY 
系统 程序 ， 通 过 修改 IDSTAMP 文件 实现 系统 的 修改 。 


超级 汉 卡 通常 捅 在 3 号 扩充 插座 上 ， 把 超级 汉 卡 系统 软盘 置 于 1 号 软盘 驱动 器 ， 打 开 电 
源 后 ， 如 果 引 导 成 功 ， 将 出 现 如 图 6-1-1 所 示 的 字幕 。 

1。 指示 行 

这 行 中 的 HGR PAGE 2 表示 使 用 高 分 辩 率 第 2 页 显示 中 文字 莫 ， 并 指出 现 有 SET A， 
SET B，SET D，SET F，SEF H, SET I，SETK，SETL，STEN，SET S 10 组 字母 


组 可 供 选 用 。 

2。 状态 行 

当 汉 字 输 入 时 ， 这 一 行 左 面 显示 标志 中 文 输入 状态 的 “中 文 ?二 个 字 以 及 取 码 时 显示 相应 
的 中 文字 母 。 


这 一 行 的 中 间 部 分 显示 光标 的 x，y 坐 标 。 屏 幕 最 左 方 ,x 坐标 值 定义 为 1, 最 右 方 为 34 
屏幕 的 最 上 方 ，y 坐标 值 定 义 为 1， 最 下 方 为 20。 程 序 装 入 后 ， 先 显示 x= 02，y= 20, 光 标 
每 移动 一 个 位 置 ， 其 坐标 值 作 相 应 修改 并 显示 。 

这 一 行 右面 第 2 个 字符 位 置 显示 选用 的 字母 组 号 (0 一 9)， 初 始 值 为 0 (预定 )。 

这 一 行 最 右面 的 位 置 显示 英文 大 、 小 写 状 态 ， 初 始 值 为 U( 大 写 ), 若 处 于 小 写 状态 , 将 显 
显示 工 。 

3. 输入 行 

若 这 一 行 上 出 现 中 文 APPLE SOFT BASIC 标记 ]， 并 在 其 后 面 闪 动 一 个 光标 ， 说 明 
启动 成 功 ， 可 以 使 用 超级 汉 卡 系统 状态 下 的 中 文 BASIC 语言 编程 序 或 输入 命令 。 

由 于 光标 内 动 ， 易 于 辨认 。 现 有 汉 卡 中 ， 光 标 不 会 闪 动 

4。 中 、 英 文字 幕 

在 超级 汉 卡 系统 中 ， 可 显示 20. 行 ， 每 行 34 个 共 680 个 英文 字母 ， 中 文 可 显示 10 行 ,每 
行 17 个 字 共 170 个 汉字 。 当 中 、 英 文 混合 显示 时 系统 初始 设 定 显 示 20 行 字 母 ， 一 旦 有 中 
文 要 显示 时 ， 系 统 会 自动 调整 显示 位 置 ， 即 多 分 配 一 个 英文 行 以 显示 汉字 ， 如 图 6-1-2 所 示 。 
在 现 有 汉 卡 中 ， 个 论 显示 宁 文 或 六 都 人 能 显示 10 行 ， 所 以 超级 汉 卡 能 以 有 限 的 屏幕 显示 
更 多 的 信息 。 一 一 -一 


HOME 


。 VTAB:HTAB:PRINT“ 姓 名 ” 


INPUTAS$ 
VTAB5:HTAB:PRINTAS 


*。 寺 37 。 


在 现 有 汉 卡 中 ，END，TLEFT$ 以 下， 工 ， 显 示 。 打 印 。 在 超级 汉 半 中 ,它们 都 以 完整 
的 形式 显示 、 打 和 印 。 


二 、 修 改 IDSTAMP 文件 


执行 MODIFY 程序 ， 用 户 可 以 根据 需要 修改 IDSTAMP 文件 。 修 改过 程 如 下 
(1) 执行 MODIFY 程序 ， 系 统 输 出 如 下 信息 ， 
]RUN MODIFY 
HGR FAGE 2， 现 有 10 SET:ABDFHIKLNS 
不 做 USER TURN KEY SYSTEM 
USER TURN KEY FILE NAME:C 
HGR PAGE 1 OR 2(1/2)?2 
并 询问 ， 用 户 准 备 选 择 PG1 或 PG2 作 中 文字 幕 显示 区 。 
(2) 用 户 必 须 以 1 或 2 回答 ， 假 设 回答 2， 接 着 系统 输出 ， 
第 0 组 及 开机 预定 SET(A-Z)? A 
询问 以 哪 一 组 作为 系统 启动 时 显示 及 打印 的 字体 ， 用 户 必 须 以 A~U. 中 任 一 字母 来 回 
答 。 
(3) 接着 系统 询问 ， 还 要 选择 几 组 ， 用 户 需 要 回答 选择 的 组 数 。 系 统 龙 定 一 次 最 多 只 能 、 
选 10 组 ， 然 后 用 户 必须 输入 各 组 的 选择 ， 
要 加 几 组 ET (0-9)? 2 
第 1 组 SET=(A-Z)? D 
第 2 组 SET=(A-Z)? 忆 
是 否 做 USER TURN KEYCY/N)? N 
(4) 在 系统 输出 “是 否 做 USER TURN KEY(Y/N)?” 后 ， 回 答 N， 系 统 输出 用 户 本 次 
的 选择 ， 并 要 求 用 户 确 认 。 
HGR PAGE 2， 现 有 3 SET:ADE 
不 做 .USER TURN KEY SYSTEM 
USER TURN KEY FILE NAME:C 
正确 吗 ? 
(5) 用 户 可 以 按 任 一 键 确 认 。 然 后 系统 把 这 次 选择 写 回 IDSTAMP 文件 ， 并 装 入 执行 
CCLDO5。 屏 幕 上 出 现 如 图 6-1-4 所 示 的 字 莫 。 在 指示 行 显示 了 这 项 选择 的 内 容 ， 
HGR PAGE 2， 现 有 3SET: ADE 
修改 过 程 结束 。 


三 、22 种 字母 组 的 选用 


修改 IDSTAMP 文件 之 后 ， 可 以 用 CTRL-a 选择 已 选 定 的 几 组 字母 组 中 的 任 一 组 ,其 
中 是 组 别 编号 、CTRL-a 可 以 在 直接 式 中 使 用 ， 也 可 以 在 间接 式 中 使 用 。 

(1) 下 接 式 

在 修改 IDSTAMP 文件 过 程 结束 之 后 ， 不 论 所 选择 的 第 0 组 是 哪 种 字母 组 ,键盘 输入 仍 
然 是 英文 大 写字 母 ， 可 以 输入 命令 .程序 , 其 输出 的 字体 是 选 定 的 第 0 组 字体 。 当 用 CTRIL- 
" 指定 改变 显示 的 字体 之 后 ， 键 盘 输入 不 再 是 英文 大 写字 母 ， 输 入 的 命令 被 拒绝 执行 ， 出 现 
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“SYNTAX ERROR”， 只 有 按 RESET 键 才能 恢复 。 

(2) 间接 式 

格式 ，PRINT CHR$C6)3 yny 

CHR$ 中 的 6 是 CTRL-F 所 对 应 的 ASC 了 码 ，D 为 组 别 编 号 ， 它 不 可 以 是 变量 ， 只 能 
使 用 数字 

例 : 下 面 的 程序 是 打印 22 种 字母 组 表格 的 程序 。 

10 POKE 1403，1:POKE 1659，0:POKE 1787，4:POKE 1915,1:PO 攻 它 2043, 30 

20 FOR I=65TO 86 

30 PRINT /BLOAD SET CHR$(TD57，A$8A007 

33 PRINT CHRS$(C6)3707; 

35 PRINT “SET CHR$(I); 

36 PRINT CHR$(6)5714 

40 HTAB 7:FOR J=32 TO 63:PRINT CHR4(J)): NEXT J: PRINT 

45 HTAB 7:FOR J= 64 TO 95:PRINT CHR$(J); :NEXT JIPRINT 

47 HTAB 7:FOR J= 96 TO 125:PRINT CHR$(J); :NEXT J:PRINT 

49 PRINT 

50 NEXT 1 

60 了 POKE 1403，255 

其 中 语句 33 说 明 表 格 的 表 目 是 以 第 0 组 字母 组 打印 的 ， 语 名 36 说 明 表 格 内 容 是 以 第 1 
组 字母 组 打印 的 。 


第 三 节 ”汉字 输入 及 汉字 系统 存 贮 货 的 组 织 


超级 汉 卡 系统 使 用 的 汉字 编码 及 汉字 输入 法 和 现 有 汉 卡 相同 ， 但 操作 更 简单 ， 它 不 再 使 
用 CTRL-D 二 键 ， 其 编辑 功能 和 规 有 汉 卡 略 有 不 同 。 


1。 汉字 输入 
在 超级 汉 卡 系统 中 只 要 按 CTRL-L 二 键 就 可 以 从 英文 输入 状态 转换 到 中 文 输入 状态 ， 
并 且 在 状态 行 的 左 角 显示 标志 中 文 输入 状态 的 “中 文 ? 二 字 ， 而 现 有 汉 卡 系统 中 ， 却 需要 依次 
按 CTRL-D，CTRL-L。 中 文 编码 输入 时 ， 显 示 相 应 的 中 文字 母 。 中 文字 输入 结束 可 以 在 
中 文 输入 状态 下 直接 按 RETURE 键 ， 而 现 有 汉 卡 系统 中 须 先 护 CTRL-L 回 到 英文 输入 状 
态 后 ，RETURN 功能 才 有 效 。 
当 输 入 出 错时 ， 不 论 汉 字 由 几 码 组 成 ， 按 一 次 二 键 就 可 以 回 到 原 汉字 输入 位 置 。 比 现 有 
汉 卡 操作 方便 。 
2. 英文 输入 本 
在 超级 汉 卡 系统 下 ， 英 文 可 以 大 、 小 写 输 入 ， 并 可 选用 22 种 字母 组 中 的 任 一 组 。 系 统 最 
多 选 定 十 组 字母 备用 。 
开机 时 ， 系 统 设 定 英文 为 大 写 ， 状 态 行 右 侧 显示 吕 字 表示 现在 英文 是 大 写 。 按 CTRL- 
A 键 可 改变 英文 大 ， 小 写 的 状态 ， 若 原来 是 英文 大 写 ， 按 CTRL-A 键 后 ， 英 文 变 为 小 写 ， 
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状态 行 显 示 L; 若 原 来 是 小 写 ， 按 CTRL-A 键 后 重新 变 为 大 写 。 

若 按 CTRL-K 键 ， 不 论 原来 英文 是 大 写 或 小 写 一 律 变 为 大 写 ， 但 在 输入 第 二 个 字母 后 
即 自动 返回 英文 小 写 ， 以 便 在 专 有 名 词 或 句 首 输入 时 使 用 。 

开机 后 字母 组 自动 设 定 为 第 0 组 。 若 要 使 用 其 它 字 母 组 ， 可 按 上 节 所 述 方法 选 定 。 这 时 
状态 行 上 字母 组 组 号 显示 区 显示 当前 使 用 的 字母 组 组 号 ， 同 一 行 中 容许 输入 多 种 字母 组 字 
体 。 为 了 操作 方便 ， 打 完 一 行 后 ， 按 RETURN 键 ， 字 母 组 回 到 第 0 组 ， 并 回 到 英文 大 写 状 
:大 


如 果 要 求 在 输入 时 ， 字 母 组 及 大 、 小 写 状态 不 受 RETURN 影响 ， 必 须 修 改 二 个 存 财 
单元 中 的 内 容 。 

(1) 38398($95FE ) 

BIT7=1 则 RETURN 后 字母 组 状态 不 变 ; 

BIT7=0 则 了 RETURN 后 取 BIT0~BIT3 作为 字母 组 状态 。 

(2) 38399($95FF )， 

BIT 7=0 则 RETURN 后 固定 回 到 大 写 状 态 ; 

BIT 7=1 则 RETURN 后 大 小 写 状 态 不 受 影 响 。 

以 上 二 个 单元 中 内 容 在 开机 时 设 定 为 0, 偿 改 使 用 POKE 语句 。RESET 或 由 英文 进入 
中 文 状态 都 不 再 设 定 。 

例如 ，POKE 38398,2 RETURN 后 ， 状 态 行 的 字母 组 号 码 变 为 2， 且 状态 行 的 字 变 成 
字母 组 2 的 字母 ; 

POKEREE 38398, 129 RETURN 后 ， 状 态 行 的 字母 组 号 码 不 变 ， 但 状态 行 的 字 变 成 字母 
组 1 的 字母 ; 

POKE 38399,0 RETURN 后 回 到 大 写 状 态 ; 

POKE 38399，255 RETURN 后 大 小 写 状 态 不 改变 。 


一 、 编 辑 功能 


本 节 指 出 超级 汉 卡 系统 和 现 有 汉 卡 系统 中 编辑 功能 的 相 异 处 。 

在 超级 汉 卡 中 刁 SC 的 功能 和 现 有 汉 卡 中 相似 ， 但 在 超级 汉 卡 系统 中 ， 光 标的 左 、 右 移 
动 以 一 个 英文 字符 为 单位 ,光标 的 上 、 下 移动 是 以 一 个 英文 显示 行为 单位 , 当 光 标 通 过 一 个 包 
含有 汉字 的 显示 行 ， 必 须 接 连 击 键 二 次 。 而 在 现 有 汉 卡 系统 中 仅 需 一 次 。 在 超级 汉 卡 系统 中 
执行 "ESC) 下 及 4ESC?E 功能 时 是 以 一 个 英文 显示 行 作为 一 行 ， 如 果 光 标 所 在 行 包含 有 中 文 
字 ， 将 会 在 屏幕 上 和 遗留 下 汉字 的 上 或 下 半 部 ， 虽 然 不 影响 信息 内 容 ， 但 达 不 到 美化 屏幕 的 目 
的 。 

在 现 有 汉 卡 中 按 住 一 或 <- 键 ， 可 实现 光标 连续 移 位 ， 而 在 超级 汉 卡 中 要 和 重复 键 配合 ， 
且 以 一 个 英文 字符 为 单位 移动 。 

在 现 有 汉 卡 系统 中 ，CTRL-H 可 能 抹 去 一 个 汉字 ， 也 可 能 抹 去 半 个 汉字 , 视 这 个 汉字 的 
中 文字 母 编 码 取 码 多 少 而 定 。 在 超级 汉 卡 中 ,不 论 取 码 多 少 ， 总 是 抹 去 一 个 汉字 。 


三 、 超 级 汉 卡 系统 与 其 它 系统 间 的 相互 转换 


超级 汉 卡 可 以 工作 于 现 有 汉 卡 系统 ， 也 可 工作 于 超级 汉 卡 系统 ， 用 除了 7 个 指令 之 外 的 
语句 编写 的 英文 BASIC 程序 也 可 以 在 超级 汉 卡 系统 下 运行 ， 超 级 汉 卡 运行 过 程 中 使 用 存 贮 
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域 的 情况 ， 可 在 进入 监控 系统 以 后 了 解 它 。 下 面 将 介绍 这 些 系统 间 的 相互 转换 。 

1. 超级 汉 卡 系统 与 现 有 汉 卡 系统 间 的 转换 

(1) 在 超级 汉 卡 系统 中 , 中 文 BASIC 提示 符 ] 后 输入 PR#3 命令 可 以 进入 现 有 没 卡 系 
统 。 系 统 重 新 设置 HIMEN 为 $8FFF， 支 持 它 的 是 DOS3,3 操作 系统 。 

(2) 由 现 有 汉 卡 系统 进入 超级 汉 卡 系统 ， 先 按 RESET 键 (这 里 不 可 同时 按 .CTRL 与 
RESET 键 )、 然 后 输入 命令 BLOAD RET CCDOS 把 机 器 语言 文件 人 上 CCDO9 装 入 到 
内 存 ， 最 后 输入 字符 &， 进 入 超级 汉 卡 系统 。 

2. 超级 汉 卡 BASIC 系统 与 英文 BASIC 系统 间 的 转换 

(1) 由 超级 汉 卡 BASIC 系统 进入 英文 BASIC 系统 

输入 命令 ，CALL 64098 或 TEXT 

由 现 有 汉 卡 BASIC 系统 进入 英文 BASIC 系统 还 可 以 使 用 CTRL-RESET， 而 这 里 
CTRL-RESET 不 起 作用 ， 仍 保持 在 超级 汉 卡 系统 状态 。 - 

(2) 由 英文 BASIC 系统 进入 超级 汉 卡 BASIC 系统 

输入 命令 ，RUN CCDOo 或 人 RETURN 

3. 超级 汉 卡 系统 与 监控 系统 间 的 相互 转换 

(1) 由 超级 汉 卡 系统 进入 监控 系统 使 用 

CALL-151 命令 

(2) 由 监控 系统 进入 超级 汉 卡 系统 使 用 

CTRL-CLC，CLCTRL-B 命令 


四 、 超 级 汉 卡 系统 存 贮 器 的 组 织 
超级 汉 卡 系统 使 用 存 贮 器 的 情况 如 图 6-3-1 廊 示 .HIMEM 取决 于 用 户 选择 的 字母 组 数 


& : FFFRI 
其 大 系 如 下 表 4 APPLE SOEFT peme . 
CDOS1| 


$D000 
HIMEM $Co0o0 
$sDo00 $9600 
$8Ao00 
$9000 
$8700 
$8400 $8D00 
$8100 
$7Eo00 $7500| 一 一 
47B00 字母 组 9 
$7200 
$7800 
$7500 $6000 
$7200 ~ _IHGR2(PG2) 


HGR (PCG1) 


-图 6-5-] 
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呈 友 


进入 监控 系统 ,由 0 页 $67 一 $74 单元 中 的 内 容 可 以 了 解 中 文 BASIC 程序 使 用 存 贮 器 的 
情况 。 见 第 五 章 第 二 节 叙 述 。 
当 使 用 PGl 或 PG2 作为 中 文字 幕 显示 区 时 ， 可 使 用 的 存 贮 区 如 图 6--3--< 上 所 示 。 


示 统 RAM - 


程序 及 变量 、 数 组 指针 


中 文 组 字 区 域 


图 6-3-2 


第 四 节 中文 APPLE SOFT BASIC 语言 


在 超级 汉 卡 系统 中 ， 不 能 使 用 的 英文 BASIC 语句 仅 7 个 ， 超 级 汉 卡 系统 特殊 功能 语句 
和 现 有 汉 卡 系统 部 分 兼容 ， 扩 充 的 位 语句 可 以 直接 用 在 程序 中 ， 实 现 从 英文 BASIC 系统 到 
超级 汉 卡 BAsICL 系统 的 转换 。 


一 、 中 文 BASIC 特殊 功能 语句 

1。CLALEL 语句 

在 超级 汉 卡 系统 中 提供 三 条 CALL 语句 对 屏幕 进行 编辑 

(1) LALL 38356 ”相当 于 了 SC-E 

清除 从 光标 位 置 到 光标 所 在 行 行 末 的 字幕 

(2) CALL.38365 相当 于 ESC-F 

清除 光标 所 在 行 的 整 行 字幕 

(3) CALL 38374 

清除 从 光标 位 置 到 屏幕 右 下 角 的 整个 屏幕 内 容 。 

现 有 汉 卡 中 清除 整个 屏幕 的 CALL 49941 语句 在 超级 汉 卡 中 不 再 使 用 ， 而 以 HOME 语 : 
名 实现 这 一 功能 。 

2. 控制 打印 输出 的 POKE 语句 

除了 关闭 打印 机 语句 必须 以 POKE 下 1403，255 代替 现 有 汉 卡 中 的 POKE 1403，0 语 各 
以 及 开机 设 定 每 行 打印 的 中 文字 字母 数 不 同 外 ， 超 级 汉 卡 中 控制 打印 输出 的 POKE 语句 均 
与 现 有 汉 卡 中 的 对 应 语句 兼容 。 

假设 汉 卡 播 在 3 号 扩充 插座 ， 打 印 机 控制 卡 揪 在 1 号 扩充 搬 座 。 则 ， 

(1) PORKE 1403，1 打开 打印 机 ; 

(2) 上 OKE 1403，255 关闭 打印 机 
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(3) POKE 1659， 大 字 横 印 ! 
(4) POKE 1659， 大 字 直 印 ; 
(5) 上 OKE 1659， 小 字 蓉 印 
(6) POKE 1659， 小 字 直 印 


(7) POKE 1787， 设 定 行 与 行 间隔 ， 开 机 设 定 N = 4 
(8) POKE 1915， 设 定 英文 字 与 英文 字 间 隙 ， 开 机 设 定 N= 08 
(9) 了 OK 卫 2043， 设 定 每 行 中 文字 字数 ， 开 机 设 定 N = 30; 
(10) POKE 1531，12 ”自动 跳 页 功能 。 
控制 月 动 跳 页 功能 需 使 用 语句 CALE 38347. 
现 有 汉民 系统 中 的 光标 定位 功能 语句 POKE 214， 蔬 及 POKEE 215， V 在 超级 汉 卡 系 
统 中 以 与 英文 BASIC 兼 容 前 HTAB、VTAB 语句 取代 。 
在 汉字 输入 时 不 再 使 用 CTRL-D 二 键 ， 现 有 汉 卡 系统 中 控制 屏 划 左下 角 中 文 状 态 及 中 
文字 母 显 示 与 否 的 POKE 253，0 和 POKE 253，255 语句 在 超级 汉 卡 系统 中 不 再 使 用 。 


二 、 超 级 汉 卡 中 扩充 的 和 英文 BASiC 兼容 的 函数 及 语句 
1。POS 语句 
它 确定 当前 光标 所 在 的 垂直 座 标 值 。 
例如 ， ]?2 日 月 /，POS(0) 
命令 执行 后 ， 屏 幕 上 显示 
日 月 4 
2。SPC 语 杀 
其 功能 是 跳 过 一 个 空白 位 置 。 它 只 能 用 在 PRINT 语句 之 中 。 
人 SPC(na) 
: 要 跳 过 的 空白 位 置 数目 。 
交 把 一 个 标题 显示 在 屏幕 中 间 。 


10 HOME 
20 PRINT SPC(11); 7“ 学 生成 绩 玫 / 
30 END 


屏 凝 上 一 行 可 以 显示 17 个 汉字 ， 标 题 为 9 个 汉字 ， 所 以 标题 二 边 各 久 人 当 于 6 个 汉字 的 
空白 位 置 ， 了 到 a = 11。 

3. TAB 语句 

这 是 一 个 自 定义 打 印 格式 丽 数 ， 和 可 以 在 一 咎 中 指定 显示 的 位 置 及 打印 的 位 置 。 

格式 ， 工 ABCn) 

n 可 以 是 变量 ， 也 可 以 是 常数 ，a 的 范围 是 0~255。 它 只 能 用 在 PRINT 语句 中 。 

例 ， 试 把 标题 “学 生成 绩 表 ? 及 栏 标题 “学 号 、 姓 和 名、 成绩 ?显示 在 屏 尹 上 部 正中 间 。 

10 HOME 

20 PRINT TAB(11); 7 学 生成 绩 表 / 

30 工 RINT 2AB(G3)3 7 学 号 TAB(13) 和 姓名 2 TAB(23)* 7 成 绩 7 

40 END 

本 例 中 ， 每 栏 占 4 个 汉字 位 置 ， 每 两 栏 之 阅 留 一 个 汉字 位 置 的 空格 ， 表 格 两 边 各 留 一 个 
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半 汉 字 位 置 。 
4。 有 TAB、VTAB 语 名 
HTAB 是 水 平定 向 语 多 ，VTAB 是 垂直 定向 语句 ，HTAB 语句 和 VTAB 语句 配合 使 
可 把 光标 移 到 屏幕 的 任 一 个 位 置 。 
格式 ，HTAB n 
n: 水 平 位 置 ， 范 围 是 1 一 34。 
VTAB n 
n: 垂直 位 置 ， 范 围 是 1 一 20。 
例 ， 试 把 “超级 汉 卡 ?四 外 字 显 示 在 屏幕 正中 间 。 
10，” HOME 
20 VTAB 11:HTABI2:PRINT “超级 汉 卡 /4 
30 了 上 上 ND 
5. INVERSE，NORMAL 语 名 
显示 将 式 语 句 。 
格式 ，INVER9SE 
使 字符 以 白 底 黑 字 显示 。 
NORMAL 
使 字符 显示 恢复 到 正常 状态 ， 即 黑 底 和 白字。 
这 两 个 语句 没有 其 它 参 数 ， 也 不 影响 键盘 打 进 去 的 字符 和 已 显示 在 屏幕 上 的 字符 ， 仅 对 
后 来 的 PRINT 语句 中 输出 的 字符 起 作用 。 
例 ， 上 例 中 ， 试 将 “超级 汉 卡 ?四 个 字 以 白 底 黑 字 显示 后 ， 重 新 恢复 正常 显示 状态 。 
10 HOME 
20 VTAB11:HTAB12:INVERSE:PRINT “超级 汉 卡 /:NORMAL 
30 END 
6。 了 PRINT 语句 
PRINT 话 句 及 在 PRINT 中 使 用 分 号 的 功能 不 再 说 明 。PRINT 语 句 中 使 用 逗号 将 信息 
显示 在 一 行 中 固定 的 三 个 区 域 中 。 这 三 个 区 域 的 起 始 位 置 分 别 是 1，12，23。 
例 : 
10 A$ = /学 号 和 By$ = "姓名 2:C$ = 成 绩 / 
20 PRINT A$，B$，Cf 
30 上 ND 
执行 结果 见 图 6-6-1。 
1 12 23 


姓 名 成 绩 


型 


个 区 -第 三 个 区 


~>|<- 


一 -> 


7。TExXT 语句 6-6-1 

TEXT 语句 没有 其 它 参 数 ， 执 行 这 个 语句 实现 从 超级 汉 卡 系统 到 英文 BASIC 系统 的 转 
换 。CALL 64098 也 能 实现 这 个 转换 ， 但 是 CALL 64098 语句 使 用 在 程序 中 时 ， 当 返回 英 
文 BASIC 后 ， 不 再 继续 执行 下 面 的 英文 BASIC 程序 ， 使 用 TEXT 可 以 实现 这 一 功能 。 
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三 、 扩 充 的 & 语句 

& 语句 实现 从 英文 BASIC 系统 重 回 超级 汉 卡 BASIC 系统 的 功能 。 人 语句 也 没有 其 它 
参数 。 

例 ， 设 计 一 个 程序 ， 先 在 屏幕 正中 以 反 相 显示 “超级 汉 卡 >”， 接 着 转 人 英文 BASIC 系统 
显示 第 二 个 屏幕 页 ， 其 左上 角 分 别 以 正常 显示 方式 ， 闪 烁 显示 方式 及 反 相 显示 方式 〈 白 底 黑 
字 ) 显 示 “S.C.C.G-83”， 第 三 个 屏幕 页 显示 APPLE I 低 分 辩 率 的 绘图 功能 , 第 四 个 屏幕 页 
显示 APPLETI 高 分 辩 率 第 一 页 的 绘图 功能 ， 最 后 重 回 超 级 汉 卡 系统 ， 使 用 PG2 在 第 五 个 屏 
幕 页 显示 “中 文 信息 处 理 ?。 

有 关 APPLE 工 的 绘图 语句 ， 请 人 参阅 第 七 章 。 

程序 设计 如 下 : 

调用 系统 盘 的 MODIFY 文件 以 修改 IDSTAMP， 选 择 PG2 作为 中 文字 幕 显示 区 。 在 
超级 汉 卡 系统 BAsICL 提示 符 ] 后 输入 程序 。 

10 HOME:VTAB11:HTAB12:INVETSE:PRINT7v 超 级 汉 卡 ;NORMAL:GET AS 

20 TEXT:HOME:PRINT /S.C.C.G-837:LASH:PRINT “S.C.C.G-837: 

INVERSE:PRINT “S.C.C.G-837:NORMAL:INPUT Af 
30 GR:FOR I=0TO 39:COLOR=I/2:VLIN 0，39 AT INEXT:GET A$ 
40 HGR:FOR I=0TO 279:HCOLOR =I-INTC(LI8)s8:HPLUT 145，96 TO 1， 
O:NEXT:GET Ag 
45 SPEED = 150 
.50 &:VTAB17:PRINT “中 文 信息 处 理 / 

60 END 

.执行 这 个 程序 ， 语 句 10 将 内 烁 显示 “超级 汉 卡 ?”， 语 名 20 分 别 以 正常 显示 ， 内 烁 显示 及 
白 底 黑 字 显 示 状 态 显示 “9 .C.C.G-83”， 语 句 30 显 示 低 分 辩 率 的 绘图 功能 ， 语 名 40 显示 高 
分 辩 率 第 一 页 的 绘图 功能 ， 语 名 50 在 高 分 辨 率 第 二 页 上 显示 “中 文 信息 处 理 ?。 

在 超级 汉 卡 中 文 APPLE SOFT 中 不 可 执行 的 绘图 语句 ， 可 以 在 GR 前 面 加 TEXT 语 
名 ， 先 返回 英文 系统 ， 再 执行 绘图 语句 ， 重 新 进入 中 文系 统 只 要 执行 和 语句 。 

在 超级 汉 卡 中 文系 统 中 不 可 执行 ELASH 语 名 ， 如 果 执 行 这 个 命令 ,出 现在 屏幕 的 字 不 

(1) 按 TEXT 进入 英文 系统 ， 输 入 NORMAL 后 ， 再 按 & 回 到 中 文系 统 

(2) 执行 POKE 243，0。 


"，]45 。 


第 七 章 APPLE II 的 绘图 功能 


ATEILE 工 微机 具有 绘图 功能 ， 在 APPLE SOFT BASIC 语言 中 提供 了 绘图 语句， 利 
用 这 些 绘图 语句 编制 的 绘图 程序 ， 可 以 在 屏幕 上 画册 两 种 图 形 ， 低 分 辩 率 图 形 和 高 分 辩 率 图 
形 。 后 者 分 辨 率 高 ， 比 较 常用 。 在 主机 内 存 RAM 中 有 了 商 页 存 贮 区 (每 页 8K 字 节 ) 作 为 高 分 
拓 率 图 形 显示 缓冲 区 ， 分 别称 为 高 分 辩 率 图 形 第 一 页 和 高 分 辩 率 图 形 第 二 页 。 配 有 汉 卡 的 主 
机 ， 使 用 高 分 养 率 图 形 第 二 页 作为 汉字 字幕 显示 缓冲 区 ， 这 样 ， 在 汉字 系统 下 ， 可 以 在 图 形 
显示 中 配 上 汉字 说 明 。 在 高 分 辩 素 图 形 显示 状态 下 ，APPLET 还 提供 了 另 一 种 绘图 方法 , 即 
高 分 辩 率 图 形 表 。 它 以 绘图 向 量 序列 描述 绘 出 一 个 图 形 的 全 过 程 , 每 个 图 形 的 绘图 向 量 序列 ， 
称 为 图 形 定义 ， 存 贮 在 主 存 中 ， 并 与 它们 的 索引 组 成 一 个 图 形 表 。 一 个 图 形 表 中 最 多 允许 包 
含 255 个 图 形 的 绘图 向 量 ， 它 可 以 保存 在 磁盘 或 磁带 上 。APPLE SOFT 语言 中 提供 了 四 个 
处 理 图 形 的 语句, 使 用 这 些 语句 编制 的 程序 可 以 调用 图 形 玫 中 的 任 一 个 图 形 的 绘图 向 量 序列 ， 
绘 出 或 消 队 一 个 图 形 或 改变 输出 图 形 的 大 小 、 方 向 。 采 用 这 种 方法 ， 可 以 把 汉字 看 作 图 形 ， 
从 而 建立 汉字 图 形 表 ， 这 样 ， 可 以 在 不 配备 汉 卡 的 主机 中 为 显示 的 图 形 配 注 汉字 。 


第 一 节 “ 低 分 辩 率 图 形 


一 、 低 分 辩 率 图 形 显示 格式 


低 分 养 率 图 形 显示 时 ，APPLET 使 用 二 页 存 贮 区 (每 页 1IK 字 节 ) 帮 为 低 分 辨 率 工 形 显 
示 绥 冲 区 ， 分 别称 为 低 分 辩 率 图 形 第 一 页 和 低 分 辩 率 图 形 第 二 页 。 它 们 占用 的 存 几 区 地 址 分 
/ 别 为 $400 一 $7FF，$800 一 $BFF。 每 页 可 以 在 屏幕 上 显示 48 行 x 40 列 。 行 与 列 的 每 一 个 交 
点 在 屏幕 上 蜡 示 为 一 个 小 的 长 方形 ， 共 可 显示 ;1920 个 长 方形 。 见 图 7-1-1 所 示 。 每 个 长 方 
形 的 色彩 变化 共有 16 种 可 供 选择 。 


二 、 低 分 辨 率 图 形 显示 语句 
1。 进入 低 分 辩 率 图 形 方式 语句 G 及 
46， 


格式 ，GR ， 
执行 这 个 语句 后 ， 屏 幕 上 部 40 行 x 40 列 位 置 全 部 清除 成 黑色 ， 将 作为 低 分 辩 率 图 形 显 
示 区 ， 并 保留 了 下 面 4 行 作 为 文字 显示 。 
执行 GR 命令 后 ， 要 把 屏幕 转变 成 全 屏幕 的 图 形 显示 (40 列 x48 行 )， 可 以 使 用 下 面 的 
命令 ; 
POKE - 16302，0 
在 全 屏幕 图 形 显 示 时 ， 如 果 要 重新 显示 出 下 面 4 行 的 文字 ， 可 以 使 用 GR 命令 , 在 最 示 
文字 的 同时 清除 图 形 显示 ， 如 果 要 保留 前 面 40 行 的 图 形 ， 同 时 把 文字 重新 显示 出 来 ,可 以 使 
用 命令 : 
PORKE 蕊 -16301，0 
2. 返回 文字 显示 方式 语句 TEXT 
格式 ，TEXT 
执行 这 个 语句 后 ， 屏 幕 显示 由 低 分 辨 率 图 形 方式 返回 文字 显示 方式 。 由 于 二 者 显示 方式 
使 用 相同 的 主 存 缓冲 区 ,而 且 拔 行 TEXT 语句 时 ,不 清除 这 个 缓冲 区 的 内 容 , 所 以 ,APPLEI 
将 图 形 资料 转变 成 文字 资料 ， 从 而 使 屏幕 上 出 现 奇 怪 的 文字 ， 使 用 ESC2@ 或 HOME 命令 
可 以 清除 屏幕 显示 。 
3. 颜色 选择 语句 COLOR 
在 低 分 辩 率 图 还 碾 示 方式 下 ， 可 以 使 用 COLOR 语句 选择 不 同 的 绘图 颜色 。 
格式 ， COLOR 一 颜色 代码 
颜色 代码 与 显示 的 颜色 对 应 关系 如 下 玫 。 


颜色 代码 闫 色 颜色 代码 颜色 


0 
1 
2 
3 
和 : 
5 
6 
9 


在 GR 语句 执行 后 ， 自 动 设 定 COLOR = 0， 即 为 黑色 (无 显示 )， 绘 图 之 前 ， 需 用 这 “ 
谱 句 选 定 绘图 的 颜色 。 例 如 ，COLOR = 13， 则 可 将 颜色 选 定 为 黄色 。 
4。 绘 点 语句 PLOT 
格式 ，PLOT A，B 
A、B 为 表达 式 ，A 给 出 所 绘 点 的 水 平 座 标 值 ，B 给 出 了 它 的 垂直 座 桥 值 。 
这 个 语句 给 出 行 与 列 交叉 的 一 个 小 方块 。 
例 1 
10 HOME 
20 GR 
30 COLOR = 13 
40 PLOT 6，16- 
这 个 程序 在 屏幕 的 第 46 行 ， 第 6 列 相交 处 ， 显 示 一 个 黄色 的 小 方块 , 见 图 7-i-2 廊 示 。 


。 工 47 。 


图 7-1-2 
例 2 
10 HOME 
20 GR 
320 COLOR = 13 
40TOR I=07TO 39 
50 PPLOT TI， 
60 FOR J=TIO 100:NEXT j 
70 NEAXT II 
这 个 程序 绘 出 一 条 由 左 而 右 的 斜 线 方块 ， 如 图 7-1-3 所 示 ， 其 颜色 为 黄色 。} 
其 中 语句 60 延迟 绘图 速度 。 


图 7-1-3 


5。 绘 垂直 线 语 句 VLIN 

执行 VLIN 语句 可 以 在 屏幕 上 用 所 选 定 的 颜色 绘 出 一 条 牌 直 的 直线 。 
格式 ，VLIN A，B AT C 
A，B，(L 为 表达 式 。 

A:， 所 画 垂直 线 的 起 始 座 标 值 

B， 所 画 垂 直线 的 终点 座 标 值 

C:， 所 画 垂直 线 的 水 平 座 标 值 

A，8 的 取 值 范围 是 0 一 47， 而 且 B 必须 大 于 A，C 取 值 范围 是 0 一 39。 
例 3 将 屏幕 第 8 列 的 41 个 小 方块 全 部 显示 为 橙色 ， 程 序 如 下 
。148 。 


10 HOME 

20 GR 

30 COLOR = 9 

40VLIN 0，41 AT 8 
程序 执行 的 结果 见 图 7-1-4 所 示 。 


0 。。。 8 ee ee e@ 6 ，， 39 
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图 7-1-4 

6. 绘 水 平 线 语 句 HLIN 

执行 HLIN 语句 可 以 在 低 分 辩 率 图 形 页 上 由 左 至 右 绘 出 不 同 的 直线 。 

格式 ，HLIN A，B AT C 

A，B，C 为 表达 式 。 

A， 所 画 水 平 线 的 起 点 座 标 值 ! 

B， 所 画 水 平 线 的 终点 座 标 值 

C:， 所 画 水平 线 的 垂直 斌 标 值 

A，B 取 值 范围 0 一 39， 且 B 必 须 大 于 A，(L 取 值 范围 0 一 47。 

例 4 将 屏幕 第 8 行 的 40 个 小 方块 全 部 显示 为 蓝 色 的 图 形 。 程 序 如 下 ， 

10 HOME 

20 GR 

30 COLOR =6 

40 HLIN 0，39 AT 8 

程序 执行 的 结果 见 图 7-1-5 所 示 。 


7-1-5 


7. :检测 颜色 码 语句 SCRN 


执行 这 个 语句 可 以 检测 出 屏幕 上 某 一 小 方块 所 显示 的 颜色 的 颜色 代码 。 
格式 ，SCRN(A，B) 

A: 被 检测 的 小 方块 的 水 平 座 标 值 
B: 被 检测 的 小 方块 的 垂直 座 标 值 。 
例 5 

10 HOME 

20 GR 

30 COLOR = 14 

40 PLOT 12，12 

50 PRINT SCRN(12，;12) 

执行 这 个 程序 后 显示 颜色 代码 为 14。 


带 一 节 高 分 辩 率 图 形 


一 、 高 分 辩 率 图 形 显示 格 式 

APPLEI 使 用 二 个 内 存 RAM 缓冲 区 作为 高 分 辩 率 图 形 显示 缓冲 区 ， 分 别称 高 分 辨 率 
图 形 第 一 页 和 高 分 辨 率 图 形 第 二 页 ， 它 们 使 用 内 存 $2000 一 $3FFF 和 $4000 一 $5FEFF 的 存 
贮 区 ， 每 页 占用 8K 字 节 。 

高 分 辩 率 图 形 显 示 时 ， 屏 幕 的 水 平 部 分 为 280 个 点 ， 垂 直 部 分 分 成 192 个 点 ， 一 共 显 示 
出 53760 个 点 。 座 标 原 点 在 屏幕 的 左上 角 , 如 图 7-2-1 所 示 。 图 形 的 颜色 共有 六 种 可 供 选 择 ， 
它们 是 黑 ， 白 、 绿 、 紫 、 蓝 、 栖 。 
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图 7-2-1 
屏幕 上 显示 的 每 一 点 和 .RAM 图 形 缓 冲 区 中 的 一 位 (bit) 相 对 应 。 一 个 字 节 中 的 7 位 将 
显示 在 屏幕 上 ， 剩 下 的 工 位 用 来 选择 该 字 节 中 其 它 各 位 所 对 应 的 屏幕 上 点 的 颜色 。 屏 幕 上 的 
一 行 对 应 40 个 字 节 的 缓冲 区 。 
配置 汉 卡 的 主机 ， 汉 字 显 示 使 用 高 分 辩 率 图 形 第 二 页 的 缓冲 区 ， 在 汉字 系统 中 ， 可 以 在 
高 分 辩 率 图 形 第 二 页 上 绘图 ， 并 配 注 汉 字 。 


二 、 高 分 辨 率 图 形 语 名 

APPLE SOFT 提供 了 在 高 分 辨 率 图 形 第 一 责 或 第 二 页 上 绘图 的 语句 。 这 些 语 句 是 ; 
1. 进入 高 分 辨 率 图 形 方式 语句 HGR，HGR 2 

.150 ， 


进入 图 形 第 一 页 的 方式 语句 格式 ，HGR 

这 个 语句 把 屏幕 显示 设 定 为 高 分 辩 率 图 形 第 一 页 ， 屏 幕 上 方 160x280 点 阵 用 于 显示 图 
形 ， 屏 幕 下 部 32 x 280 点 阵 用 于 显示 4 行文 字幕 。 执 行 这 个 语句 , 屏 ; 知 上 图 形 区 清除 成 黑色 ， 
如 图 7-2-2 所 示 。 若 使 用 命令 POKE- 16302，0， 可 使 图 形 、 文 字 混合 显示 转变 为 全 屏幕 
图 形 显示 。 


进入 图 形 第 二 页 的 方式 语句 格式 ，HGR2 
这 个 语句 把 屏幕 显示 设 定 为 高 分 辨 率 图 形 第 二 页 ， 全 屏幕 显示 图 形 ， 不 显示 文字 幕 。 
但 执行 这 个 语句 之 后 ， 若 使 用 命令 ，POKE - 16301，0 , 可 使 全 屏幕 图 形 显示 转变 为 图 
形 、 文 字 混合 显示 。 
2。 颜色 选择 语句 HCOLOR 
使 用 HGR 或 HGR2 进入 高 分 辩 率 图 形 显示 方式 ， 屏 幕 上 图 形 区 呈现 黑色 。 在 绘图 之 
前 需 用 HCOLOR 语句 选择 绘图 颜色 。 
格式 ，HCOLOR = 颜色 代码 
颜色 代码 与 对 应 的 显示 颜色 如 下 表 ， 


显示 颜色 | 颜色 代码 最 示 凑 色 


癌 拉 
(1 
ie 量 - 


0 | 黑 
1 | 绿 
2 紫 
3 白 | 有 
3. 绘图 语句 HPLOT 
绘图 语句 HPLOT 有 下 面 两 种 格式 


(1) 绘 点 格式 

格式 ，HPLOT A，B 

A，B 为 表达 式 。 A 是 绘 点 的 水 平 座 标 值 ， 日 是 给 点 的 重 直 永 标 值 。 。 

例 6 设 访 一 个 程序 ， 使 屏幕 上 第 1 行 .第 1 列 第 1 行 、 第 279 列 ， 第 191 行 .第 279 
列 ， 第 191 行 、 第 1 列 的 四 个 点 全 部 显示 为 绿色 。 程序 如 下 

10 HOME 

20 HGR 

30 HCOLOR =1: POKE -16302，0 


40 HPLOT 1，1 

50 HPLOT 279，:1 

60 HPLOT 279，191 

70 JPRLOT 1，191 

执行 这 个 程序 后 ， 屏 幕 显示 如 图 7-2-3 所 示 。 


图 7-2-5 


(2) 绘 线 格式 

格式 1， HPLOT A，B TO CD 

其 中 A，B，C，D 为 表达 式 。 ， ， 

A，B 分 别 为 直线 起 点 的 水 平和 垂直 座 标 值 

C，D 分 别 为 直线 终点 的 水 平和 垂直 座 标 值 。 

这 种 格式 绘 出 一 条 直线 。 
例 7 编制 一 个 程序 , 在 屏幕 上 用 蓝 色 绘 出 由 左上 角 到 右 下 角 的 一 条 对 角 线 。 程 序 如 下 ， 
10 HOME 

20 HGR 

30 HCOLOR = 6 :POKE- 16302，0 

40 HPLOT 0，0 TO:279, 191 

程序 执行 的 结果 如 图 7-2-4 所 示 。 


图 7-2-4 
格式 2， HPLOT A,，B TO C,D TO E，FTO.…。 
这 种 格式 可 以 绘 出 折线 。 
其 中 A，B，C，D，E，F，.…… 均 为 折 点 处 的 坐标 点 。 


。 1 52 。. 


例 8 在 高 分 辩 率 第 2 页 上 画 一 个 长 方形 ， 要 求 从 第 8 行 、 第 31 列 开始 依 顺 时 针 方 向 给 
出 水 平 边 长 为 216 个 点 ， 垂 直 边 长 为 80 个 点 的 绿色 长 方形 。 程 序 如 下 ， 

10 HOME :HGR2:HCOLOR = 1 

20 HPLOT 31，8 TO 247，8 

30 HPLOT 247，8 TO247，88 

40 HPLOT 247，88 TO 31，88 

50 HPLOT 31，88 TO 31，8 

程序 执行 的 结果 如 图 7-2-5 所 示 。 


0 3] ee。ee ee 247 279 


7-2-5 
程序 中 语句 20 一 50 可 以 用 一 条 语句 代替 ， 即 ， 
20 HPLOT 31，8 TO 247，8 TO 247，.88 TO. 31，88 TO 31，8 
结果 祖 同 。 
“为 使 程序 具有 更 大 的 通用 性 ， 可 以 在 HPLOT 语句 中 使 用 表达 式 。 
例 9 从 第 20 行 、 第 10 列 开始 依 顺 时 针 方 向 绘 出 一 个 边 长 为 51 个 点 的 蓝 色 正方 形 ， 程 
序 如 下 :， 
10HOME:HGR:HCOLOR =6 
20 人 =20:C=TlT0:W=51:N=51 
30 HPLOT C，R TO C+W-1l1， R TO C+W-1l1 R+N=L1TO 
C，R+N-1 TO C，R 
其 中 R、C 为 起 点 的 水 平 、 垂 直 座 标 值 ， 叉 、N 分 别 为 水 平方 向 边 长 及 垂直 方向 边 长 。 
如 果 要 更 改 图 形 的 起 绘 点 或 宽度 、 高 度 ， 只 要 修改 语句 20 中 祖 应 的 变量 值 。 
4。 返回 文本 显示 方式 语句 TEXT 
格式 ，TEXT 
这 个 语句 执行 后 ， 从 高 分 辩 率 图 形 显示 方式 返回 文字 显示 方式 。 
三 、 绘 图 实例 
高 分 辩 率 图 形 有 较 高 的 分 辨 率 ， 可 以 绘 出 各 种 比较 精细 的 图 形 和 曲线 。 下 面 给 出 两 个 绘 
图 实例 。 
例 10 在 屏幕 上 绘 出 8 个 白色 同心 圆 ， 圆 心 在 屏幕 的 第 95 行 , 第 95 列 。 程 序 如 下 ; 
10 HOME 
20 瓦 GR2 


@. 153 @ 


30 HCOLOR=7 
40 R1= 10:R2=80:S=10:CX=95:CY=95 
50 FOR R=R1ITOR2STEPS 
60FOR X= -RTOR _ 
70Y=INT(SQR(RA2-XA2)) 
80 HPLOT CX-+X，CY-Y 
90 HPLOT CX+X，CY+Y 
100 NEXT 
110 NEXTR 
语句 40 中 ，R1 为 同心 圆 中 的 最 小 半径 ; 
R2 为 同心 圆 中 的 最 大 半径 
5 为 半径 的 增 量 
CX 为 圆心 的 入 轴 坐标 # 
LCY 为 圆心 的 Y 轴 坐标 。 
循环 语句 50 规定 从 半径 最 小 的 圆 画 起 直到 画 出 半径 最 大 的 圆 。 
语句 60 规定 绘图 时 以 绘 点 方式 从 左 回 右 绘 出 。 
由 于 圆 上 各 点 座 标 满足 xz: 十 z2= 人:2， 所 以 了 = 士 WR2 一 了 2 "又 屏 膏 上 点 的 座 标 值 均 为 整 
所 以 在 语句 70 中 对 y 值 取 整 。 
语句 80 绘 吕 上 半圆 ， 语 名 90 绘 出 下 半圆 。 
例 11 绘制 一 条 正弦 曲线 ， 曲 线 的 一 个 周期 对 应 260 个 点 ， 曲 线 的 峰值 对 庶 .60 个 点 。 
座 标 原点 设 在 第 90 行 、 第 10 例 。 程 序 如 下 ; 
10 HGR2 
20 HCQLOR = 
30 HPLOT 0，90 TO 279，90 
40 HPLOT 10，0 TO 10，159 
50 HCOLOR =5 
60 EOR I=0 下 O. 260- 
70 HPLOT I+10，90-60sSIN(Is3.1416/130) 
80 NEXT - 
其 中 语 包 30: 画 出 水 平 座 标 轴 ， 语 句 40 画 出 垂直 座 标 轴 ， 颜 色 由 语句 20 设 定 为 绿色 。 
语句 60 一 80 以 绘 点 方式 画 出 正弦 曲线 ， 颜 色 由 语句 50 设 定 为 橙色 。 
HPLOT 中 的 座 标 值 若 为 小 数 ， 系 统 会 自动 取 整 。 


数 
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当 APPLE 配备 汉 卡 时 ， 在 进入 汉字 系统 后 ， 可 以 使 用 高 分 辩 率 图 形 第 二 页 的 绘图 语 
名 编制 绘图 程序 ， 在 高 分 辩 率 图 形 第 二 页 上 绘制 图 表 、 曲 线 ， 并 用 中 文 APPLE SOFT 
BASIC 语句 输出 汉字 ， 在 图 形 上 配 注 汉 字 等 。 

例 :12 .解放 以 来 ， 我 国 国民 经 济 稳步 增长 ,国家 财政 收入 逐年 提高 , 可 用 图 7-2-6 说 明 。 

试 设 计 一 个 程序 ， 在 屏幕 上 显示 这 个 图 表 及 汉字 说 明 。 假 设 已 进入 汉字 系统 ， 程 序 
如 下 : 


“<X54 。 


国家 财政 收入 1249 
( 亿 元 ) 


1950 1966 1978 1983 


10 HGR2:HCOLOR = 2 

20 A=65:B=559:C=1121:D=1249 

30 站 =160:M=50:N=82:H= 工 -INT(A/15):GOSUB 180 

40 M=98:N=130:H=L-INT(B/15):GOSUB 180 

50 M=146:N=178:H=L-INTCC/15):GOSUB 180 

60 M=194:N=226:H=LL-INT(D/15):GOSUB 180 

70 HCOLOR =5 

80 HPLOT 0，L TO 279，L 

90 POKE 215，9:POKE 214，6 

100 PRINTT /195023; 7; Z19667; /1V; Z19787Z; 27， ， /7 V ;719837 

110 POKE 215，2:POKE 214，24:PRINT 12494:CALL 49944 

120 POKER 215，2:POKE 214，18:PRINT /1121/:CALL 49944 

130 POKE 215，4:POKE 214，12:PRINT /7559 和 4 CALL 49944 

140 POKE 215，6:POKE 214，7:PRINT 7654:CALL 49944 

150 POKE 215，1:POKE 214，4:PRINT /国家 财政 收入 :CALL 49944 
160 POKE 214，7:PRINT “( 亿 元 )/:CALL 49944 

170 POKE 2 语 ，9:E 

180FORI=MTON-1 

190 HPLOT I, LTOI, HTO I+1,， H TO I+l, 工 

200 NEXT 1 
210 RETURN 
语句 20 把 4 个 年 份 的 财政 收入 赋值 给 变量 A、B、CLC、D， 语 名 30 一 60 调用 语 句 180 人 ~ 


入 


210 的 绘图 表 子 程序 ， 从 左 到 右 绘 出 四 个 比例 图 形 ， 颜 色 为 紫色 ， 色彩 填 清华 个 比例 图 形 ; 


五 、 


语句 80 绘 出 下 部 水 平 线 ， 颜 色 为 橙色 ; 

语句 90 一 100 在 水 平 线 下 部 配 注 年 份 ; 

语句 110 一 140 在 每 个 比例 图 形 上 方 配 注 当年 财政 收入 的 数目 3 
语句 .150 一 160 在 图 表 左 上 方 配 注 汉 字 ， 对 图 表 作 说 明 。 


颜色 的 限制 
在 高 分 辩 率 图 形 显示 方式 时 ， 如 果 使 用 黑白 电视 屏幕 ， 若 屏幕 上 每 一 点 对 应 的 内 存 显 示 


缓冲 区 中 的 位 (bit) 是 1， 则 显示 白 点 ， 是 0， 则 显示 出 黑 点 。 如 果 采 用 彩色 屏幕 ， 若 缓冲 区 


,155-， 


中 一 位 (bit) 是 0， 那 么 屏幕 上 相对 应 的 点 依然 显示 黑色 ， 是 1， 那 么 它 的 颜色 跟 它 在 屏幕 上 
的 位 置 有 关 。 也 就 是 说 ， 在 高 分 辩 率 图 形 显示 时 ， 可 以 用 HCOLOR 语句 选择 六 种 不 同 的 彩 
色 ， 但 屏幕 上 显示 的 颜色 ′ 受到 限制 ， 这 个 限制 如 下 : 

在 偶数 列 上 (水 平 座 标 为 偶数 ) 只 能 显示 紫 、 蓝 或 黑色 。 若 用 绿 、 橙 色 ， 则 显示 出 黑色 。 

在 奇数 列 上 ( 答 直 座 标 为 奇数 ) 只 能 显示 绿 、 栖 或 黑色 。 若 用 紫 、 蓝 色 ， 则 显示 出 黑色 。 

例 13 

10 HGR 

20 HCOLOR =16 

30 HPLOT 20，0 TO 20，159 

40 HPLOT 61，0 TO 61，159 

本 程序 要 在 屏幕 上 显示 二 条 垂直 线 。 然 而 ， 结 果 仅 显示 从 座 标 点 /``、 0) 到 座 标点 (20， 
159) 的 一 条 垂直 线 ， 另 一 条 垂直 线 不 显示 。 因 为 这 条 垂直 线 的 水 平 座 标 是 61， 为 奇数 ,而 请 
名 20 设 定 的 颜色 却 是 蓝 色 。 


第 三 节 高 分 辨 率 图 形 表 


使 用 上 节 所 述 的 高 分 辩 率 图 形 语句 绘图 ， 当 需要 图 形 在 屏幕 上 进行 某 些 处 理 时 ， 比 如 ， 
将 图 形 旋转 或 放大 、 缩 小 等 ， 会 遇 到 困难 。 APPLE IE 提供 了 另 一 种 绘图 方法 ， 即 高 分 辩 率 
图 形 表 。 

在 高 分 辩 率 图 形 玫 绘图 方式 中 定义 了 8 个 绘图 向 量 ， 每 一 个 向 量 描述 往 上 、 下 、 左 、 帮 
移动 或 不 移动 ， 同 时 也 描述 了 是 否 要 绘 在 屏幕 上 , 它 是 绘 出 图 形 的 指令 码 。 要 绘 出 一 个 图 形 ， 
先 选 一 个 绘图 起 始点 ， 按 绘图 路 径 ， 把 绘图 的 指令 码 即 绘图 向 量 列 出 来 ， 这 个 绘图 向 量 序列 
就 描述 了 一 个 图 形 ， 它 以 二 进 制 方式 存放 在 内 存 中 ， 各 个 图 形 的 绘图 向 量 序列 及 其 索引 组 成 
了 一 个 高 分 辨 率 图 形 表 。APPLE TI 人 允许 一 个 图 形 表 中 最 多 包含 255 个 图 形 的 绘图 向 量 。 人 
们 可 以 随时 调用 图 形 表 中 的 某 一 图 形 的 绘图 向 量 在 屏幕 上 给 出 这 个 图 形 。APPLE SOFT 在 
高 分 辩 率 图 形 表 绘图 方式 中 提供 了 5 条 命令 ， 用 来 处 理 这 些 图 形 。 

在 调用 图 形 表 中 的 绘图 向 量 进行 绘图 之 前 ， 要 进入 高 分 辩 率 图 形 显示 状态 ( 即 执行 了 
HGR 或 HGR2 语句 )， 并 选 定 颜色 。 

当 建 立 了 一 个 具有 数字 、 字 母 、 符 号 及 汉字 的 高 分 辩 率 图 形 表 ， 就 可 以 在 绘图 程序 中 调 
站 国 下 痢 中 这 从 区 字 ， 字 全 符号 及 汉字 的 给 国 向 旺 ， 在 商 分 辩 事 图 形 ， 四 家 上 四 注 攻 全 

字 等 。 


给 加 向 量 用 三 位 二 进 侧 得 表示 ， 其 代码 与 闪 图 动作 的 关系 如 下 才 所 示 : 


绘图 向 量 | 符号 绘图 动作 


在 上 移动 ， 不 星 加 
往 右 移动 ， 不 绘图 


往 堪 移动 ， 不 给 图， 
一 个 绘图 向 量 可 以 表示 为 ; 


? 156， 


当 卫 = 0 时 表示 不 画 出 图 形 ; 
己 =1 时 表示 要 画 出 图 形 。 
MM = 00 表示 向 上 移动 ; 
MM = 01 表示 疝 右 移动 
MM = 10 表示 同 下 移动 ; 


MM = 11 者 示 向 左 移动 。 
当 用 一 个 绘图 向 量 序列 描述 一 个 图 形 时 ， 先 画 出 图 形 ， 再 以 绘图 向 量 图 示 绘 图 过 程 ， 多 


后 写 出 绘图 向 量 序列 。 
例 14 列 出 图 7-3-1 所 示 的 正方 形 的 绘图 向 量 序列 。 


设 选取 左上 角 的 点 作为 绘图 起 点 ， 依 顺 时 针 方向 给 出。 图 7-3-2 给 出 了 绘图 向 量 图 未 。 
这 个 正方 形 的 绘图 向 量 序列 用 符号 表示 是 


一 > 一 > 一 > 一 > 一 > 一 > 一 > 一 > 


而 向 量 序列 是 ， 


101 101 101 101 101 101 101 101。 


例 15 列 出 图 7-3-3 所 示 图 形 的 绘图 向 量 序列 。 
回 量 只 


先 把 图 形 画 在 方 格 纸 上 ， 并 假定 从 图 形 中 间 开 始 画 ， 再 画 出 绘图 路 径 ， 由 于 绘图 向 
能 往 上 、 下 或 左 、 右 移动 ， 因此 只 能 用 90 度 角 来 转弯 ， 如 图 7-3-4 所 示 。 


2 ee@  @ 
@ 和 @ 
6 e @ @ 
@ @ @ 和 @@ @ 
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、 图 7-3-1 图 7-3-2 
接着 用 绘图 向 量 图 示 绘 画 过 程 ， 如 图 7-3-5 所 示 。 绘 图 向 量 序列 可 用 符号 表示 为 


图 7-5-4 


| | < 一 < 人 个 个 >- 下 1 <-<- 
010 010” 11 
110 011 111。 


器 


而 回 量 序列 是 ， 
111 000 100 100 100 001 101 101 101 010 110 110 


二 、 绘 图 向 量 在 内 存 中 的 表示 方式 
APPLET 中 用 内 存 的 一 个 字 节 表示 3 个 绘图 向 量 ， 分 成 A.B,C 三 个 段 如 下 ， 


证 


CL B A 
[一 全 一 人 ”一 全 


765432 1 0 


每 一 字 节 的 三 个 绘图 向 量 段 规定 如 下 
1.C 段 仅 2 位 (bit)，( 相 当 于 P= 0)， 所 以 C 段 表示 的 向 量 只 能 用 于 移动 ， 而 不 会 在 屏 
幕 上 绘 点 。C = 01 表示 右 移 (<-)，C = 10 表示 下 移 (4 )，C= 11 表示 左 移 (<-)， 但 C= 00 无 
任何 作用 ， 即 仍 在 原来 的 点 上 。 
2. 当 C=00 且 B=000， 则 B 向 量 不 再 具有 原来 的 意义 (上 移 而 不 绘 点 )， 即 C、B 向 量 都 
表示 不 移动 也 不 绘 点 。 
3.. 若 A = 000，B = 000，C = 00 表示 一 个 图 形 的 绘图 向 量 序列 结束 。 
根据 以 上 的 规定 ， 例 15 中 的 绘图 向 量 序列 在 内 存 中 的 存 贮 形式 如 下 表 ; 


字 节 | 给 图 向 量 图 示 内 生存 贮 形式 十 六 进 制 值 
0 Y YY 00 010 010 12 
1 | < < | 00 1 li | 3F 
和 不 00 100 000 20 
> 不 不 01 100 100 64 
-~ ”00 101 101 2D 
5 | 人 > | ” 0001 1 1 1 
二 00 101 110 36 
-> 00 011 110 1 世 
本 所 00 000 111 07 
9 00 000 000 00 


三 、 图 形 表 

图 形 表 包括 各 个 图 形 的 绘图 向 量 序列 表格 及 其 索引 ， 它 实际 上 是 内 存 中 一 个 二 进 制 的 数 
据 寺 省。 它 描述 了 该 表 中 有 多 少 个 图 形 的 绘图 向 量 序列 ， 同 时 也 指出 了 它们 在 表 中 的 位 置 。 
外“: 表 可 以 建 在 为 存 的 任 一 区 域 ， 假 设 一 个 图 形 表 存在 内 存 中 的 起 始 地 址 为 S， 各 个 图 形 的 
综 图 向 是 序列 表格 起 始 地 址 相对 于 S 的 位 移 为 Di，i 表示 第 i 个 图 形 。 那 未 图 形 表 的 格式 如 
图 7-3-6 所 示 。 

其 中 图 形 表 :为 起 始 地 址 必须 存 于 天 8， 刁 9 单元 。 顾 8 单元 存放 地 址 的 低位 ， 尼 9 单 元 存放 
地 址 的 高 位 。 


四 、 建 立 图 形 表 


建立 图 形 表 ， 首 先 必需 确定 这 个 图 形 表 要 定义 几 个 图 形 ， 图 形 玫 存放 的 起 始 地 址 ;各 个 
图 形 的 绘图 向 量 滤 格 的 起 始 地 址 相对 于 图 形 玫 起 始 地 址 的 位 移 以 及 各 个 图 形 的 绘图 向 量 序 
列 ， 然 后 按 上 面 所 述 的 图 形 玫 格式 输入 内 存 。 图 形 表 数据 输入 可 以 用 POKE 命令 来 完成 ， 
也 可 以 在 监控 系统 下 完成 。 
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S+3 一 一 |}D1 


}D2 


S+2z41 1 | jpa 
S+DI| 第 一 个 字 劳 ] 
一 一 :一 | | 第 一 个 图 形 的 绘图 向 量 序列 
5 
一 


n (0~ FF) 定义 图 形 个 数 ， 最 多 为 255 
| 第 二 个 图 形 的 绘图 向 量 序 列 
| 


绘 贺 同 量 序列 


] 
| 
| 
] 
一 一- [第 na 个 图 形 的 绘图 向 量 序列 
| | | 一 刘 E 不 了 = 

7-35-6 


例 16 建立 一 个 如 例 15 中 所 示 图 形 的 图 形 表 。 

设 图 形 表 在 内 存 的 起 始 地 址 为 $6000 , 由 于 只 有 一 个 图 形 ，$6000 单元 中 应 存 入 01, 绘图 
向 量 序列 由 $6008 单元 开始 存放 ，$6002 及 $6004 单元 中 应 存 入 位 移 量 0008， 并 设 在 监控 
系统 下 输入 ， 输 入 过 程 如 下 : 

]CALL - 151 

s6000:01 00 08 00 00 00 00 00 RETURN 

s6008:12 3F 20 64 2D 15 36 1ERETURN 

s6010:07 00 RETURN 

输入 之 后 ， 给 出 如 下 命令 检查 输入 是 否 正确 

ea6000.6018 

再 把 图 形 表 的 起 始 地 址 存 入 下 8、 忆 9 单元 

sE8:00 60 RETURN 

检查 输入 正确 后 用 CTRL=-LC 退出 监控 系统 ， 图 形 表 建立 后 ， 就 可 使 用 。 

通常 都 把 建 好 的 图 形 表 用 以 下 的 DOS 命令 保存 在 磁盘 上 ， 设 文件 名 为 SHAPE， 图 形 
表 占 用 存 贮 区 的 长 度 为 18 个 字 节 。 

BSAVE SHAPE，A$6000，L20: 

- 著 要 使 用 这 个 图 形 表 ， 须 先 把 它 装 人 到 内 存 ， 再 在 卫 8， 瑟 9 单元 中 设置 图 形 表 的 起 始 地 


10 PRINT CHR$(4)37BLOAD SHAPEY 
20 POKE 232，0:POKE 233，96 

注意 语句 20 中 的 值 均 为 十 进 制 的 值 。 
综 上 所 述 ， 建 立 一 个 图 形 表 的 步骤 如 下 
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(1) 先 在 方 格 纸 上 绘 出 要 画 的 图 形 ; 

42) 确定 绘图 的 起 点 ， 设 计 绘 图 路 径 ， 并 给 出 绘图 向 量 图 示 ; 

(3) 给 出 绘图 向 量 序列 在 内 存 中 存 贮 的 十 六 进 制 形式 ; 

(4) 输入 CALL-151 命令 ， 进 入 监控 系统 ， 确定 图 形 表 在 内 疹 的 起 始 地 址 ,并 按 上 面 所 
述 的 图 形 表格 式 逐 一 输 入 索引 及 各 个 图 素 的 绘图 向 量 : 

(5) 退出 监控 系统 ， 并 输入 BSAVE 命 令 把 图 形 表 保存 到 磁盘 上 。 


图 形 表 的 调用 


在 高 分 辩 率 图 形 表 方式 中 ，APPLE SOFT 提供 四 个 特殊 语句 ， 用 以 调用 表 中 图 形 的 

绘图 向 量 进 行 绘图 ， 并 可 对 图 形 作 旋 转 ， 放 大 或 缩小 ， 清 除 等 处 理 。 
1。 亩 用 语句 DRAW 

格式 (A)，DRAW A AT X，Y 
或 ”格式 (B)，DRAW A 

A，X，Y 为 表达 式 。 

A 指出 所 绘 的 图 形 在 图 形 表 中 的 序号 ，A 值 在 0 一 255 之 间 # 

B、C 指出 所 绘图 形 起 始点 的 水 平 、 垂 直 座 标 值 ， 其 值 分 别 在 0 一 279，0 一 191 之 间 。 

如 果 用 格式 (B)， 即 不 指明 B.C， 则 以 最 近 执 行 HELOT，DRAW 或 XDRAW( 见 下 面 
氢 述 ) 的 位 置 作 为 起 始 位 置 ， 画 出 指定 的 图 形 。 

在 DRAW 执行 前 由 HGR 或 HGR2 语句 进入 高 分 辨 率 图 形 方 式 ， 由 HCOLOR 语句 
指定 图 形 的 颜色 , 并 由 下 面 将 要 介绍 的 语句 ROT，.SCALE 语句 指明 旋转 的 角度 及 尺寸 等 。 

2. 调用 语句 ADRA 允 

语句 格式 与 DRAW 相同 ， 即 ， 

XDRAW A ATX，Y 

XDRAW A 

执行 XDRAW 语句 时 ， 是 以 现 有 颜色 的 补 色 画 出 图 形 。 所 谓 颜 色 互补 指 的 是 将 两 种 颜 
色 混 合 后 ， 显 示 为 黑色 。 下 面 几 对 颜色 是 互补 的 ， 黑 与 白 ， 蓝 与 绿 ， 橙 与 紫 。 

XDRAW 语句 提供 了 一 个 简单 的 清除 图 形 的 方法 ， 即 当 用 DRAW 语句 画 出 一 个 图 形 
后 ， 再 执行 一 个 XDRAW 语句 ， 而 且 座 标 上 旋转 向 量 及 大 小 都 与 画 原 图 形 时 相同 ， 则 将 在 
原 图 形 上 以 补 色 重 画 ， 即 擦 掉 原 图 形 ， 但 不 擦 掉 原 图 形 以 外 的 图 形 。 

3. 图 形 比例 语句 SCALE 

SCALE 语句 设 定 要 画 出 的 图 形 的 尺寸 。 

格式 ，SCALE = 表达 式 

表达 式 取 值 范围 0 一 255。 

SCALE = 1， 设 定 每 一 个 绘图 向 量 的 范围 为 一 个 点 ， 邹 按 原 图 形 的 尺寸 画图 ; 

SCALE=2， 设 定 每 一 个 绘图 向 量 的 范围 为 2 个 点 ， 即 画 出 的 图 形 是 原 图 形 的 2 倍 ; 


五 


胡 


SCALE = 255 表示 把 原 图 形 放大 255 售 ; 
SCALE =0 表示 把 原 图 形 放大 256 倍 。 
4。 图形 旋 转 语句 ROT 

ROT 语句 设 定 绘 出 图 形 的 旋转 角度 。 
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格式 ，ROT = 玫 达 式 

ROOT 中 表达 式 的 值 在 0 一 255 之 间 ， 但 最 多 只 有 64 种 可 能 的 旋转 系数 ， 即 0 一 63， 旋 
转角 度 由 SCALE 语句 与 ROT 语句 共同 定义 。 

当 5CALE =1 时 ，ROT 只 能 依 一 次 旋转 90" 的 方式 画 出 图 形 ，ROT 值 为 0，16，32 
48 时 对 应 的 旋转 角度 为 0"，90"，180"，270。; 

当 SCAILE =2 时 ，ROT 的 值 为 0，8，16，24，32，40，48，56，64 时 对 应 的 旋转 角 
度 为 0*，45"，90。，135。，180"，255"，270。，315"，360。。 

以 此 类 推 ， 当 595CALE = 5 或 大 于 5 时 ， 最 多 可 达 64 种 旋转 角度 。 

如 果 给 定 的 ROT 值 不 是 ROT 语句 中 规定 的 旋转 系数 值 ，APPLE SOFT 会 自动 把 给 
定 的 ROT 值 转换 成 比 它 小 的 规定 的 旋转 系数 值 。 如 果 给 定 的 ROT 值 大 于 64， 则 以 此 值 除 
以 64 的 余数 作为 旋转 系数 。 

例 17 编制 一 个 程序 ， 每 次 画 出 例 15 中 的 图 形 并 旋转 ， 重 复 50 次 ， 每 次 重复 时 都 把 
图 形 放 大 。 程 序 如 下 ， 

10 HGR 

20 HCOLOR = 3 

30 FOR R=1TO 50 

40 ROT = 及 

50 SCALE =R 

60 DRAW 1AT 139，79 

70 NEXT R 

程序 执行 之 前 ， 假 设 图 形 表 已 在 内 存 ， 其 起 始 地 址 已 存放 在 下 8， 也 9 单元 。 

如 果 每 次 画 出 图 形 后 亚 暂 停 片刻 并 擦 去 图 形 ， 可 加 上 以 下 二 个 语句 : 

62 上 上 OR [=0TO 1000:NEAXT 

64XDRAW 1 AT 139，79。 


六 、 汉 字 图 形 均 


采用 高 分 辩 率 图 形 玫 的 绘图 方法 ， 可 以 把 一 个 个 汉字 作为 一 个 个 图 形 ， 从 而 建立 汉字 图 
形 表 , 这 样 不 需要 硬件 汉 卡 , 就 可 以 在 绘制 的 曲线 .图 表 上 配 注 汉 字 。 甚 至 花边 .图 案 的 设计 。 

例 18 建立 一 个 图 形 表 ， 它 包括 数字 0，1，…9， 人 小数点， 汉字:“ 布 ，“ 亿 ?”，“ 米 ”, 符 
号 “(” 和 “)? 等 16 个 图 形 的 绘图 向 量 。 

下 面 以 数字 “2 字形 及 汉字 “ 布 ? 字 形 为 例 ， 设 计 绘图 向 量 。 

数字 0，1，…9 及 小 数 点 采用 4Xx6 后 阵 ， 汉 字 及 符号 “( “和 “) 采用 16 x16 点 阵 。 

数字 “2 字形 点 阵 如 图 7-3-?7 所 示 ， 绘 图 癌 量 未 于 图 7-3-8 中 ， 绘 图 回 量 在 内 存 中 的 存 计 
形式 如 下 -一 
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字 三 绘 图 回 量 内 存 存 取 形 式 


ee ee 


CBA C B A 

0 所 二 00 111 111 

1 > 不 <-~ 01 100 111 

2 个 00 001 100 

3 | ->4 00 001 100 

4 < 人 11 100 100 

6 人 < 二 本 10 111 111 

6 本 + 00 119 110 

1 7 00 000 000 


汉字 *“ 布 ?的 字形 点 阵 如 图 7-3-9 所 示 ， 绘 图 向 量 图 示 于 图 7-3-10 中 。 


下 

一 

中 庆 世 3 关 半 癌 证 汪 癌 避 癌 癌 吕 癌 吕 | 

] 二 ET 

一 

图 

站 

时 

寺 

国 

王 

琅 

站 

图 7-3-9 7-3s-10 
绘图 向 量 在 内 存 中 的 存 贮 形式 如 下 ; 
字 节 绘图 向 量 内 存 存 贮 形式 十 六 进 制 值 
C B A C 了 A 

0 -全 ~> 00 101 101 2D 
1 .> > 00 101 101 2D 
2 -> -> 00 101 101 2D 
3 -> . -~ 00 101 101 2D 
4 -> 00 10l1 101 2D 
5 全 ~> 00 101 101 2D 
6 ~ -~> 00 101 101 2D 
7 个 “~> 00 100 100 25 
8 人 厅 11 000 000 C0 
9 < < 1 1011 011 DB 
10 <- <- <- 11 011 011 DB 
11 y < < 10 111 011 BB 
12 一 00 010 111 17 
13 Y 一 00 010 111 17 
14 YY 一 00 010 111 17 
15 < 00 010 111 17 
16 Y < 00 010 111 17 
17 了 一 00 .010 111 17 
18 YY 站 ~ 01 001 101 4D 
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42 


< 号 -~ 


< 和 < 一 yi>~>~> 一 芭 


<< 生 <<<> 一 一 > 人 个 << +， rr>>~> 一 一 


其 它 字 形 的 绘图 向 量 不 再 一 一 例 举 。 
假设 这 个 图 形 表 的 起 始 地 址 为 $6000， 


二 进 制 数据 如 下 所 示 ! 


6000-10. 
6008-49 
6010-6 上 上 
6018-8F 
6020-20 


6028-00 


6030-3B 
6038-67 


6040-FCL 0CL 


6048-00 


6050-06 


6058-24 
6060-1C 
6068-24 
6070-1C 


23 
00 


2D 


0(L 
0CL 


0C 1L BE 


00 110 
00 110 
00 100 
00 100 
00 101 
00 101 
00 101 
00 101 
00 101 
00 101 
00 110 
00 110 
11 111 
11 011 
00 100 
00 100 
00 100 
00 100 
10 010 
10 010 


00 110 


00 110 
00 110 
00 000 


这 个 图 形 表 占 用 $6000 一 $6130 的 存 贮 区 域 。 其 


30 00 
52 00 
79 00 
BA 00 
00 00 
00 00 
24 24 
0C E4 
05 38 
2C 3F 
3B 07 
2D 00 
2D D6 
05 20 


110 
110 
100 
100 
100 
101 
101 
101 
101 
101 
110 
110 
110 
011 
011 
100 


II00 


100 
110 
010 
010 
110 
110 
000 


37 
5(L 
83 
CL9 
00 
00 


00 
00 
00 
00 


3 
67 
8(L 
F1 
00 
00 
00 


00 


72 
0(L 


36 
36 
24 
24 
2C 
2D 
2D 
2D 
2D 
2D 
36 
36 
FE 
DB 
23 
24 
24 
24 
96 
92 
32 
36 
36 
00 


00 
00 
00 
00 
00 
00 
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共 占 305 个 字 闻 。 
图 形 表 的 二 进 制 数据 输入 内 存 之 后 ， 用 如 下 的 DOS 命令 保存 到 磁盘 上 ， 
BSAVE CHAR，Ad$6000，L305 


例 19 解放 以 来 ,我 国 轻 工 产 品 产量 大 幅度 增长 。 其 中 布匹 增长 情况 如 图 7-3-11 所 示 。 
亿 米 


18.9 ixz 


.4949 


6078-00 3B 
6080-77 06 
6088-AD 36 
6090-2D. .2D 
6098-DB BB 
60A0-17 4D 
60A8-2D 2D 
60B0-23 24 
60B8-36 00 
60C0-36 36 
60C8-00 12 
60D0-2D 2D 
60D8-]E 1E 
60E0-2D 2D 
60E8-DB DB 
60F0-00 92 
60F8-2D 92 
6100-1C 瑟 7 
6108-36 36 
6110-D8 DB 


6118-0C 0C 0C 


6120-49 
6128-36 
6130-00 


49 
36 


1956 


FE 00 


27 08 
00 3B 
36 00 
2D 2D 
BB 17 
36 36 
2D 2D 


36 
63 0(L 
41 
36 


08 


1966 
7-5-11 


IC 64 AD 36 


07 20 


1B 3B 


2D 2D 
17 17 
24 24 
36 36 
96 92 
08 17 
AE 15 
0C 0C 
2D .1 也 
1E 1]E 
24 96 
24 24 
2D 2D 
IC 1C 
IC 1CL 
36 36 


0LC 0CL 
0C 0C 0C 


08 15 


试用 图 形 玫 的 绘图 方式 绘 出 这 个 图 表 并 配 注 说 明 。 
图 形 表 已 在 例 18 中 建立 ， 调 用 它 给 图 表 配 注 说 明 的 程序 如 下 ; 
10 PRINT CHR$(4)57BLOAD CHARY 
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24 


15 


36 BE17 17 
00 FF FF 00. 


t978 


0C 
2D 
C0 
17 
27D 
DB 
36 
17 
05 


07 
00 


1448.8 


4983.， 


装 入 图 形 表 


20 POKE 232，0:POKE 233，96 
30 HGR2:HECOLOR = 6 


40 Y(1)=18.9:Y(2)=57.7:Y(3)=73.1:Y(4) = 110 3tY(65) 给 出 产量 
=148.8:Y =160 

50 YE 屯 (1)= 1949:YE(2)= 1956:YE(3)= 1966:YE(4) =1978:YE(5)=1983 给 出 年 份 

60 X(1)=38 计算 各 个 年 份 的 水 平 坐标 值 


70 FOR I=1TO14 

80 X(2)=X(C1)+(YE(I+1)-YE(I))e6 

90 HPLOT X(1)，Y TO X(1)，INTGY -YY(GD) TO X(2)，INTCY-Y 绘图 
(I+1))TOX(2)，Y 

100 X(1) =X(2) 


110 NEXT TI - 

120 HCOLOR = 2 

130 HPLOT 0,Y TO 279，Y 绘 水 平 轴 
135U$ = 207 

140X=48:Y=167:N =YE(1):GOSUB 500 配 注 年 份 


150 X=90:N =YE(2):GOSUB 500 

160 X= 150:N =YE(3):GOSUB 500 

170X=222:N=YE(4):GOSUB 500 

180 入 =252:N= YE(5):GO9SUB 500 

190X=48:Y=INT(155-Y(1)):N= 18.9:GOSUB.500 配 注 产量 
200X=90:Y=INT(155-Y(2)):N=57.7:GOSUB 500 
210X=150:Y=INT(155-Y(3)):N=73.1:GOSUB 500 

220 X=222:Y=INT(155-Y(4)):N=110.3:GOSUB 500 

230 X=252:Y=INT(155-Y(5)):N=148.8:GOSUB 500 配 汉字 
240.FOR U=1TOG5 

250X=38+(U-1l)s16:Y=30:U$= STR$CU):GOSUB 500 

260 NEXT U 

270 上 ND 

500 N$= STR$CN) 调用 图 形 表 子 程序 
510 HLCOLOR =3:9LCALE=1:ROT =0 

515 工 =L.ENCN$) 

520 FOR J=L TO 1STEP-1 

530 M$= MID$CN$，J，1) 

540 IF MS=7 .2ZTHEN DRAW 11 AT X，Y:GOTO 590 

550 IF M$ = 202THEN DRAW 10 ATX，Y:GOTO 590 

560 IF U$<<>>“0”THEN 620 | 

570 M=VALCOM$) 

580 DRAW M ATX，Y 

590 X=X-5 
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600 N 蕊 XT 

610 RETURN 
620DRAWUT+1I1 ATX，Y 
630 X= 和 X+16，RETITURN 


。166.。 


Ar 


一 上 


% 忆 


昌 | 


< 朗 


Te 


忌 


ed -ee 


了 
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举 录 II APPLE SOFT BASIC 保留 字 


. 168 ; 


LOAD 
NORMAJ， 
PDL 
PRINT 
RESUME 
SAVE 
SPC( 
STR 
TRACE 
XDRAW 


AND ASC 
CLEAR COLOR = 
DEL DIM 
FOR ERE 
ECOLOR = ~ HGR 
HELOT HTAB 
INVERSE ”LEFT$ 
LOG LOMEYM: 
NOT NOTRACE 
PEREK PLOT 

P 及 井 READ 
RETURE RIGHT$ 
SCALE= SCRN( 
SPEED 一 SQR 

TAB( TAN 
USR VAL 


ATN 
CO5 
EXP 


“GO9S9UB 


HIMEM: 
IN 井 
LET 
NEW 
ONERR 
POP 
REM 
ROT= 
SHLOAD 
STOP 
THEN 
VTAB 


POS 
RESTORE 
RUN 

SIN 
STORE 
TO 
WAIT 


附录 III ASCII 码 表 


十 进 铅 


Ap 


忆 00 “~ 中 四 人 必定 


~ 
十 六 进 市 


Us9 
十 进 制 


竹 入 十 进 制 ”十 六 进 制 “ 字 元 欠 入 
ctrl 四 32 20 SPACE space 
ctrl 人 33 21 ! ! 
ctzr] 也 34 22: 《 
ctrl CC 335 ， 23: : 间 莫 
ctrl 也 36 24 $ $ 
ctrl 也 37 25 0% 0% 
ctrl 下 38 26 、 八 广 
ctrl G 39 27 . ” / 
ctrl 开 or<- 40 28 《 ( 
ctr 一 41 29 ) ) 
ctrl 了 j 42 2A # # 
ctrl 及 43 2B 十 十 
ctrl 于 44 2C ， ， 
ctrl M or RETURN 45 2D 一 一 
ctrl 和 46 2 孔 。 。 
ctrl O 47 2 / / 
ctrl 卫 48 30 0 0 
ctrl Q 49 31 工 1 
ctrl 及 50 32 2 2 
ctrl 9 51 33 3 3 
ctrl 工 52 34 4 4 
ctrl U or-> 53 35 5. 5 
ctrl V 一 54 36 6 6 
ctrl W 59 37 7 7 
ctrl 六 56 38 8 8 
ctrl YY 57 39 9 0 
cttrl Z D8 3A ? 
ESC 59 3B 3 ; 
n/a 60 3C < < 
cta shift-M 61 3D = = 
ctrl 62 3 > 全 
n/a 63 3 匡 ? ? 
十 六 进 制 字 元 键入 

40 Q@ @ 

41 人 A 

42 也 B 

43 C C 

44 汪 D 

45 也 也 

46 局 下 

47 Gr G 

48 瑟 达 

49 I 

4A J J 

4 了 B 有 上 

4C 二 LL 

4 也 M M 

4 也 N N 

4KE O O 

50 P 卫 

51 Q Q. 

52 及 及 

53. 9 9 

54 个 下 

55 癌 U 

56 V， V 

57 风 W 

58 及 - 久 

59 了 立 

5A Z Z 

5B [ n/a 

5C / nj/a 

5D ] ] (Shift-My) 

5 了 an AAA 

5 上 一 PR/a 


"69 ， 


附录 IV ”中 文字 母 的 ASCII 码 表 


十 进 制 十 六 进 制 
中 文字 母 ASC 工 三 ASCTI 码 英文 形 码 
日 97 61 人 A 
月 98 62 B 
人 金 ~ 99 63 C 
木 100 64 D 
水 101 65 忆 
火 102 66 下 
土 103 67 G 
竹 104 68 | 
及 105 69 I 
十 106 6A J 
大 107 6B 开 
中 108 6C EL 
一 109 6D M 
己 110 6 忆 N 
人 111 6F O 
心 112 70 了 
手 113 71 Q 
口 114 72 R 
己 115 73 S 
士 116 74 个 
山 117 75 U 
女 118 76 V 
田 119 77 W 
上 121 79 YY 
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附录 VY APELE SOFT BASIC 出 错 信息 


?7 BAD'SUBSCRIPT ERROR 
充 组 的 下 标 值 不 正确 或 下 标 值 超过 了 定义 的 范围 ， 错 误 代码 为 107。 
? CAN'T CONTINUE ERROR 
在 下 列 三 种 情况 下 (i) 没 有 程序 ; (ii) 在 有 严重 错误 出 现 ; (这 ) 在 修改 过 程序 以 后 ， 试 图 使 用 
CONT 指令 继续 执行 程序 。 
? DIVISION BY ZERO ERROR 
用 值 为 0 的 算式 做 除数 ， 错 误 代 码 为 133。 
? FORMULA TOO COMPLEX ERROR 
在 一 个 行 号 中 写 入 两 条 以 上 的 IFE……THEN 语句 ， 错 误 代 码 为 191。 
? ILLEGAL DIRECT ERROR 
在 直接 式 中 执行 INPUT，DEFFN 或 GET 语句 。 
? ILLEGAL QUANTITY ERROR 
在 一 个 字符 串 函 数 、 数 值 函 数 等 语句 中 ， 所 用 到 的 数值 超过 了 能 够 接受 的 范围 ， 错误 伏 码 为 53。 
?NEXT WITHOUT FOR ERROR 
执行 一 句 没有 FOR 语句 与 之 对 应 的 NEXT 语句 ， 错 误 代 码 为 0。 
? OUT OF DATA ERROR 
在 输入 时 ，DATA 语句 中 的 数据 已 用 完 ，READ 语句 仍 试图 读数 据 ， 错 误 代码 42。 
? OUT OF MEMORY ERROR 
程序 太 大 ， 变 量 或 数组 太 多 ，FOR……NEXT 循环 语句 风 套 超过 10 层 ， 子 程序 层次 超过 24 层 ， 
括号 的 深度 超过 36 层 ，LOMEM: 定 得 太 高 ，HIMEM: 定 得 太 低 等 引起 的 错误 ， 错 误 代码 77。 
? OVERFLOW ERROR 
从 键盘 上 输入 的 数 或 程序 计算 的 结果 溢出 (机 器 能 接受 的 范围 是 -~ 1.7 及 +38 与 1.7 匡 +38 之 间 )， 钻 
误 代 码 69。 
? REDIM'D ARRAY ERROR 
二 次 定义 了 数组 空间 ， 错 误 代 码 为 12。 
?RETURN WITHOUT GOSUB ERROR 
执行 到 一 个 没有 GOSUB 和 丑 之 对 应 的 RETURN 语句 ， 错 误 代 码 为 22。 
? STRING TOO LONG ERROR 
定义 一 个 字符 串 或 多 个 字符 串 连 接 成 一 个 字符 串 时 长 度 超过 了 255 个 字符 ， 错 误 代 码 为 176。 
? SYNTAX ERROR 
语句 中 出 现 语法 错误 以 及 性 何 可 不 能 由 其 它 信 息 所 提示 的 错误 都 产生 这 个 出 错 信 息 ， 销 误 代码 为 16。 
? TYPE MISMATCH ERROR 
使 用 的 变量 或 数据 类 型 与 要 求 的 不 符合 ， 错 误 代 码 为 163。 
?7 UNDEF'D FUNCTION ERROR 
使 用 了 一 个 未 定义 过 的 函数 ， 错 误 代 码 为 224。 
; UNDEF'D STATEMENT ERROR 
程序 中 试图 转向 一 个 不 存在 的 语句 编号 ， 错 误 代 码 为 90。 
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附录 VI DOS 错误 信息 


DISK FULL 
软 益 中 提供 给 用 户 使 用 的 496 个 遍 区 已 经 被 写 满 ， 用 户 还 试图 写 入 程序 或 数据 ， 错 误 代 码 为 9。 

END OF DATA 

。 文本 文件 中 的 数据 已 经 取 完 ， 仍 哉 图 读数 据 ， 错 误 代码 为 5。 

FIL 和 LOCKED 
使 用 SAVE，BSAVE，WRITE，DELETE 或 RENAME 对 一 个 已 被 封锁 的 文件 进行 操 作 ， 
错误 代码 为 10。 

FILE NOT FOUND 
在 磁盘 目录 表 中 找 不 到 DOS 命 命令 要 操作 的 文件 ， 错 识 代 码 为 6。 

FILE TYPE MISMATCH 

” 使 用 的 DOS 命令 和 所 操作 的 文件 类 型 之 间 配 合 不 当 (LOAD,RUN,SAVE 命令 只 能 用 于 APPLE 

SOFT BASIC 程序 文件 OPEN，READ，WRITE，APPEND，POSITION，EXEC 命令 只 
能 用 于 文本 文件 ，BLOAD，BSAVE，BRUN 只 能 用 于 机 器 语言 的 程序 文件 )， 错 误 代码 为 13。 

I/O 不 RROR 
在 磁盘 上 读 写 不 成 功 。 通 常 是 磁盘 驱动 器 的 门 没 关 上 ， 磁盘 没有 被 初始 化 过 磁盘 驱动 器 中 没有 密 
盘 片 或 软盘 损坏 等 ， 错 误 代 码 为 8。 

LANGUAGE NOT AVAILABLE 
当 使 用 F3 或 INT 命令 改变 目前 系统 中 使 用 的 语言 ， 而 想 要 使 用 的 语言 却 又 不 让 ROM 或 磁盘 由， 
写 入 或 执行 目前 系统 不 允许 使 用 的 语言 程序 则 产生 这 个 错误 ， 错 误 代码 为 1。 

NO BUFFERS AVAILABLE 
无 缓 种 区 可 被 利用 ， 错 误 代码 为 12。 

NOT DIRECT COMMAND 
在 语句 中 直接 使 用 OPEN， READ， WRITE，APPEND，POSITION 命令 (这 些 语 鲁 只 能 用 在 
PRINT 语句 中 )， 错 误 代码 为 15。 

PROGAM TOO LARGE 
用 DOS 命令 把 程序 文件 装 入 到 内 存 ， 内 存 容 量 不 够 ， 错 误 代码 为 14。 

RANGE ERROR 
DOS 命令 丰 某 参数 超出 了 规定 的 范围 ， 错 误 代码 为 2 或 3。 

SYNTAX ERROR 
DOS 命令 中 有 语法 错误 ， 如 标点 用 错 ， 参 数 次 序 不 对 等 ， 错 误 代码 11。 

VOLUME MISMATCH 
DQS 命 伶 中 V 参 效 的 值 与 磁盘 上 记录 的 卷 号 不 符 ， 错 误 代码 为 7。 

WRITE :PROTECTED 
试图 在 一 个 具有 写 保护 的 磁盘 上 使 用 SAVE，BSAVE 或 者 帮 RITE 命令 错误 代码 为 4 


上 


"173 ， 


科技 新 书目 ，90 一 200 
统一 书号 ,15335.011 


3 


定 价 ，2.05 元 


